Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
shuffle array
sub shuffle { my @deck = @{shift @_}; my @newdeck; while (@deck){ push @newdeck, splice @deck,int (rand ($#deck+1)),1 } return @newdeck } my @a = (1,2,3,4,5,6,7,); print shuffle (\@a);
run
|
edit
|
history
|
help
0
Attractive numbers
Array_with_shift_function
perl circle plot
2
Toy singleton class
Hash Refrence for memory optimization
5_5
Soumya 101758
main_objetos
101744