Icon+Unicon/Intro: Difference between revisions

→‎Contractions: just to take steve`s jem over the top :)
(→‎Contractions: just to take steve`s jem over the top :))
Line 518:
human decency yields:
<lang Unicon>procedure vdc(n, base)
every ((e:=1.0, result:=0) +:= |((0 < 1(.n,n/:=base))%base/(e*:=base))) | return result
return result
end</lang>
This is probably only lovable by J programmers.
Anonymous user