28 lines
937 B
APL
28 lines
937 B
APL
|
spell←{⎕IO←0
|
|||
|
|
small←'' 'one' 'two' 'three' 'four' 'five' 'six' 'seven' 'eight'
|
|||
|
|
small,←'nine' 'ten' 'eleven' 'twelve' 'thirteen' 'fourteen'
|
|||
|
|
small,←'fifteen' 'sixteen' 'seventeen' 'eighteen' 'nineteen'
|
|||
|
|
teens←'twenty' 'thirty' 'forty' 'fifty' 'sixty' 'seventy'
|
|||
|
|
teens,←'eighty' 'ninety'
|
|||
|
|
orders←'m' 'b' 'tr' 'quadr',¨⊂'illion'
|
|||
|
|
orders←(⊂¨,¨10*6+3×⍳∘≢)orders
|
|||
|
|
orders←('hundred' 100)('thousand' 1000),orders
|
|||
|
|
|
|||
|
|
⍵=0:'zero'
|
|||
|
|
{ ⍵<0:'minus ',∇-⍵
|
|||
|
|
⍵<20:⍵⊃small
|
|||
|
|
⍵<100:{
|
|||
|
|
ty←((⌊⍵÷10)-2)⊃teens
|
|||
|
|
0=n←10|⍵:ty
|
|||
|
|
ty,'-',n⊃small
|
|||
|
|
}⍵
|
|||
|
|
(⊃⊃∇{
|
|||
|
|
name size←⍺
|
|||
|
|
cur n←⍵
|
|||
|
|
rest←size|n
|
|||
|
|
n≥size:(⊂cur,(⍺⍺⌊n÷size),' ',name,((0≠rest)↑'')),rest
|
|||
|
|
(⊂cur),rest
|
|||
|
|
}/orders,⊂(''⍵)),∇100|⍵
|
|||
|
|
}⍵
|
|||
|
|
}
|