9 lines
209 B
AppleScript
9 lines
209 B
AppleScript
-- showBin :: Int -> String
|
|
on showBin(n)
|
|
script binaryChar
|
|
on |λ|(n)
|
|
text item (n + 1) of "〇一"
|
|
end |λ|
|
|
end script
|
|
showIntAtBase(2, binaryChar, n, "")
|
|
end showBin
|