Zeckendorf arithmetic: Difference between revisions

pairlen(x::Z, y::Z) = max(length(x.s), length(y.s))

tolen(x::Z, n::Int) = (s = x.s; while length(s) < n s = z0 * s end; s)

 

<(x::Z, y::Z) = (l = pairlen(x, y); boo = tolen(x, l) < tolen(y, l); return flipordered ? !boo : boo)

(Z("1001"), Z("1"))

</pre>

 

=={{header|Kotlin}}==