5 lines
197 B
Raku
5 lines
197 B
Raku
sub fractran(@program) {
|
|
2, { first Int, map (* * $_).narrow, @program } ... 0
|
|
}
|
|
say fractran(<17/91 78/85 19/51 23/38 29/33 77/29 95/23 77/19 1/17 11/13 13/11
|
|
15/14 15/2 55/1>)[^100];
|