Muller's Recurrence
1234567891011
sub rec (\y, \z) { 108 - (815-1500/y)/z }
sub pt (::T) { 4, my T $z = 4.25, &rec … Inf }
sub fatrat { pt FatRat() }
sub rat { pt Rat() }
sub flt { pt Num() }
for « 1 2 7 8 14 28 39 53 1000 » -> \i
{ printf "%-4s | %-18s | %-17s | %s\n",
i, flt[i], rat[i], fatrat[i] }
Raku
INFO