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
101744
Lieta 101733
bitSum 059-1
5_5
perl plot circular list in a circle
Perl
Password Validation
Perl logo
2
Challenge 41 Task 1