Non-decimal radices/Convert: Difference between revisions
→{{header|AppleScript}}: (made one variable name more expressive, for legibility)
(→{{header|AppleScript}}: (made one variable name more expressive, for legibility)) |
|||
Line 307:
script nextDigit
on lambda(
set {divided, remainder} to quotRem(
{valid:divided > 0, value:(item (remainder + 1) of strDigits), new:divided}
Line 316:
reverse of unfoldr(nextDigit, n) as string
end inBaseDigits
Line 329 ⟶ 330:
inBaseDigits("०१२३४५६७८९", n)
end inDevanagariDecimal
-- TEST
|