48 lines
744 B
Plaintext
48 lines
744 B
Plaintext
" Lehmer generator
|
|
0;lehmer;=;4;0;0
|
|
1;7;0;0;0;0
|
|
0;argv-1;=;argv-1;*;48271;
|
|
0;argv-1;=;argv-1;%;2147483647
|
|
1;return;0;0;0
|
|
" swap
|
|
0;swap;=;10;0;0
|
|
1;14;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;17;0;i;=;10
|
|
0;argv-1;=;10;0;0
|
|
1;24;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;27;0;i;=;10
|
|
" body
|
|
0;i;=;0;0;0;
|
|
3;return;0;i;<;n
|
|
0;min;=;i;0;0
|
|
0;j;=;i;+;1
|
|
3;40;0;j;<;n
|
|
3;38;0;a-j;<;a-min
|
|
0;min;=;j;0;0
|
|
0;j;=;1;+;j
|
|
1;35;0;0;0
|
|
2;46;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;32;0;0;0
|