grondilu · December 20, 2015 10:19
diff --git a/gistfile1.txt b/gistfile1.txt
 sub ethiopicmult($a, $b) {
    my @left = $a, * div 2 ... 1;
    my @right := $b, 2 * * ... *;
    [+] map *.value, grep *.key % 2, (@left Z=> @right)
 }

 say ethiopicmult 17, 34;
	sub ethiopicmult($a, $b) {
	my @left = $a, * div 2 ... 1;
	my @right := $b, 2 * * ... *;
	[+] map .value, grep .key % 2, (@left Z=> @right)
	}

	say ethiopicmult 17, 34;