Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
matrx travarsal
#perl 5.26.1 use feature "say"; my ($x,$y)=(3,5); my $matrix=([])x$x; for my $row(0..$x-1){ for my $col(0..$y-1){ push @{$$matrix[$row]},int (rand()*10+1) } } for (@$matrix){ print join (",", @$_),"\n" } my @paths=(); for my $no(0..2**($x+$y)){ my $bin=sprintf "%0".($x+$y)."b", $no; my $count=()=$bin=~/0/g; push @paths, $bin if $count==$y; } say for (@paths)
run
|
edit
|
history
|
help
0
Challenge 41 Task 1
Closure
Hashes
G
Perl
Program List
Array_with_join_function
Price_supriya
Perl circular list
test321