Data commit

Task/Number-names/APL/number-names.apl

@@ -0,0 +1,27 @@
+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|⍵
+    }⍵
+}