aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Task/Cut-a-rectangle/Perl-6/cut-a-rectangle.pl6
View file

@ -64,7 +64,7 @@ sub solve(Int $hh, Int $ww, Int $recur) returns Int {
}
my ($y, $x);
loop ($y = 1; $y <= 10; $y++) {
loop ($y = 1; $y <= 9; $y++) {
loop ($x = 1; $x <= $y; $x++) {
if (!($x +& 1) || !($y +& 1)) {
printf("%d x %d: %d\n", $y, $x, solve($y, $x, 1));