Run Code
|
API
|
Code Wall
|
Users
|
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
Please
log in
to post a comment.
2nd
reverse polish notation experiment
Leonardo Numbers
base N conversion
Perl
5_5
Perl - Sort hash of filenames by file extension
5_5
Conta valores acima da média
Jeffy John Sam (101724)
Please log in to post a comment.