15 lines
463 B
Text
15 lines
463 B
Text
var fracs="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";
|
|
fcn fractranW(n,fracsAsOneBigString){ //-->Walker (iterator)
|
|
fracs:=(fracsAsOneBigString-" ").split(",").apply(
|
|
fcn(frac){ frac.split("/").apply("toInt") }); //( (n,d), (n,d), ...)
|
|
Walker(fcn(rn,fracs){
|
|
n:=rn.value;
|
|
foreach a,b in (fracs){
|
|
if(n*a%b == 0){
|
|
rn.set(n*a/b);
|
|
return(n);
|
|
}
|
|
}
|
|
}.fp(Ref(n),fracs))
|
|
}
|