Knuth shuffle: Difference between revisions
Content added Content deleted
(Added Chipmunk Basic, GW-BASIC and Minimal BASIC) |
|||
Line 512: | Line 512: | ||
print(a) |
print(a) |
||
)</syntaxhighlight> |
)</syntaxhighlight> |
||
=={{header|Amazing Hopper}}== |
|||
<syntaxhighlight lang="c"> |
|||
#include <basico.h> |
|||
algoritmo |
|||
v={},n=19 |
|||
'0,1,2,3,4,5,6,7,8,9,"\t","\v","\v","A","B","C","D","E","F"' enlistar en 'v' |
|||
imprimir ("Original:\n[",v,"]\n\n") |
|||
imprimir (rareti( n, #(ceil(rand(n))), n, intercambiar en (v)),\ |
|||
"Processed:\n[", v,"]\n" ) |
|||
terminar |
|||
</syntaxhighlight> |
|||
{{out}} |
|||
<pre> |
|||
Original: |
|||
[0,1,2,3,4,5,6,7,8,9, , |
|||
, |
|||
,A,B,C,D,E,F] |
|||
Processed: |
|||
[F,B, ,1,9, |
|||
,2,D,5,6,4,8,C,7,A, |
|||
,3,0,E] |
|||
</pre> |
|||
=={{header|AppleScript}}== |
=={{header|AppleScript}}== |