Content deleted Content added
→Mathematica implementation/hack: new section |
|||
Line 126:
In case anyone looks for a short Mathematica one-liner implementing ?(x) for numerical values (I guess that would mean: for rationals) :
qm[x_] := Abs@Fold[#2 - #1 &, Floor@x, 2*2^-Accumulate@Rest@ContinuedFraction@x]
[[User:Summsumm2|Summsumm2]] ([[User talk:Summsumm2|talk]]) 16:08, 4 February 2013 (UTC)
|