Skip to main content
Code Golf

Return to Answer

use list repetition
Source Link
Martin Kealey
Martin Kealey
  • 151
  • 1
  • 4

Perl, 139 137137 135 bytes

sub p{print"@_ "}sub g{($x)=@_;map{$_[$_]*(1-(4*$x>>$_&2))}1..3}p g$_,55,55,(55)x3 for 0..7;map{@v=(g$_,89,34,0)x2;p@v[$_..$_+2]for 0..2}0..3

try it onlinetry it online

Perl, 139 137 bytes

sub p{print"@_ "}sub g{($x)=@_;map{$_[$_]*(1-(4*$x>>$_&2))}1..3}p g$_,55,55,55 for 0..7;map{@v=(g$_,89,34,0)x2;p@v[$_..$_+2]for 0..2}0..3

try it online

Perl, 139 137 135 bytes

sub p{print"@_ "}sub g{($x)=@_;map{$_[$_]*(1-(4*$x>>$_&2))}1..3}p g$_,(55)x3 for 0..7;map{@v=(g$_,89,34,0)x2;p@v[$_..$_+2]for 0..2}0..3

try it online

take advantage of scaling
Source Link
Martin Kealey
Martin Kealey
  • 151
  • 1
  • 4

Perl, 139139 137 bytes

sub p{print"@_ "}sub g{($x)=@_;map{$_[$_]*(1-(4*$x>>$_&2))}1..3}p g$_,(1)x355,55,55 for 0..7;map{@v=(g$_,1.61889,.61834,0)x2;p@v[$_..$_+2]for 0..2}0..3

try it onlinetry it online

Perl, 139 bytes

sub p{print"@_ "}sub g{($x)=@_;map{$_[$_]*(1-(4*$x>>$_&2))}1..3}p g$_,(1)x3 for 0..7;map{@v=(g$_,1.618,.618,0)x2;p@v[$_..$_+2]for 0..2}0..3

try it online

Perl, 139 137 bytes

sub p{print"@_ "}sub g{($x)=@_;map{$_[$_]*(1-(4*$x>>$_&2))}1..3}p g$_,55,55,55 for 0..7;map{@v=(g$_,89,34,0)x2;p@v[$_..$_+2]for 0..2}0..3

try it online

deleted 1 character in body
Source Link
Martin Kealey
Martin Kealey
  • 151
  • 1
  • 4

Perl, 139 bytes

sub fp{print"@_ "}sub g{($x)=@_;map{$_[$_]*(1-(4*$x>>$_&2))}1..3}fp g$_,(1)x3 for 0..7;map{@v=(g$_,1.618,.618,0)x2;f@v[$_x2;p@v[$_..$_+2]for 0..2}0..3

try it onlinetry it online

Perl, 139 bytes

sub f{print"@_ "}sub g{($x)=@_;map{$_[$_]*(1-(4*$x>>$_&2))}1..3}f g$_,(1)x3 for 0..7;map{@v=(g$_,1.618,.618,0)x2;f@v[$_..$_+2]for 0..2}0..3

try it online

Perl, 139 bytes

sub p{print"@_ "}sub g{($x)=@_;map{$_[$_]*(1-(4*$x>>$_&2))}1..3}p g$_,(1)x3 for 0..7;map{@v=(g$_,1.618,.618,0)x2;p@v[$_..$_+2]for 0..2}0..3

try it online

Source Link
Martin Kealey
Martin Kealey
  • 151
  • 1
  • 4