define N=100
int array rnd
int array result
int index=0
int number=0
int n=N
whilenot (index>=N)
{    
    rnd[index]=index++
}
index=0
whilenot (index>=N)
{    
    number=GetRandomInt(0,n)
    result[index]=rnd[number]
    rnd[number]=rnd[n--]
    index++
}

local integer n = <длина массива>
local integer i = 1
local integer j
local real array a

loop
exitwhen(i>=n)
    set a[i] = GetRandomReal(0,100)
    set j = 1
    loop
    exitwhen(j>=n)
        if a[i]==a[j] then
            set i = i-1
            set j = n
        else
            set j = j+1
        endif
    endloop
    set i = i+1
endloop

int N=10, i=0, j=0, b=0, arr a
loop
{
exitwhen i==N
i++
loop
{
exitwhen b==0
b=0
a[i]=GetRandomInt(1,N)
loop
{
exitwhen j==i-1
j++
if(a[i]==a[j]){
b=1
}
}
}
}

int array A,B
int T
void Get(int i){
int n=MAX
loop
    i--
    exitwhen i<0
    n--
    T=GetRandomInt(0,n)
    A[i]=B[T]
    B[T]=B[n]
    B[n]=A[i]
endloop
}

ibrary fx initializer init {

#include "cj_types.j"

    #define N = 10
    
    int arr[]

    nothing init () {
        int i = N, a, b
        do {
            arr[i] = i
        } whilenot (--i < 0)

        i = N
        do {
            a = GetRandomInt(0, N)
            b = arr[i]
            arr[i] = arr[a]
            arr[a] = b
        } whilenot (--i < 0)
    
        i = N
        do {
            BJDebugMsg(I2S(arr[i]))
        } whilenot (--i < 0)
    }
    
}