48 lines
915 B
Plaintext
48 lines
915 B
Plaintext
" Lehmer generator
|
|
0;lehmer;=;eval(__line__+2);0;0
|
|
1;eval(__line__+4);0;0;0;0
|
|
0;argv-1;=;argv-1;*;48271;
|
|
0;argv-1;=;argv-1;%;2147483647
|
|
1;return;0;0;0
|
|
" swap
|
|
0;swap;=;eval(__line__+2);0;0
|
|
1;eval(__line__+5);0;0;0;0
|
|
0;buf;=;argv-1;0;0
|
|
0;argv-1;=;argv-2;0;0
|
|
0;argv-2;=;buf;0;0
|
|
1;return;0;0;0
|
|
" call
|
|
0;i;=;0;0;0
|
|
0;argv-1;=;11;0;0
|
|
1;lehmer;1;0;0;0
|
|
0;argv-2-i;=;argv-1;0;0
|
|
0;i;=;i;+;1
|
|
3;eval(__line__-3);0;i;=;10
|
|
0;argv-1;=;10;0;0
|
|
1;eval(__line__+2);1;0;0;0
|
|
1;return;0;0;0
|
|
" selection sort
|
|
0;n;=;argv-1;0;0
|
|
0;i;=;0;0;0;
|
|
0;a-i;=;argv-2-i;0;0
|
|
0;i;=;i;+;1
|
|
3;eval(__line__-2);0;i;=;10
|
|
" body
|
|
0;i;=;0;0;0;
|
|
3;return;0;i;<;n
|
|
0;min;=;i;0;0
|
|
0;j;=;i;+;1
|
|
3;eval(__line__+5);0;j;<;n
|
|
3;eval(__line__+2);0;a-j;<;a-min
|
|
0;min;=;j;0;0
|
|
0;j;=;1;+;j
|
|
1;eval(__line__-4);0;0;0
|
|
2;eval(__line__+6);0;min;=;i
|
|
0;argv-1;=;a-i;0;0
|
|
0;argv-2;=;a-min;0;0
|
|
1;swap;1;0;0;0
|
|
0;a-i;=;argv-1;0;0
|
|
0;a-min;=;argv-2;0;0
|
|
0;i;=;i;+;1
|
|
1;eval(__line__-15);0;0;0
|