017.ik (382B)
1 #!/usr/bin/ioke 2 3 [ 4 [191, "one"], 5 [190, "two three four five six seven eight nine"], 6 [10, "ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen"], 7 [100, "twenty thirty forty fifty sixty seventy eighty ninety"], 8 [999 - 9 - 99, "and"], 9 [999 - 99 , "hundred"], 10 [1, "thousand"] 11 ] map(v, v last split(" ") map(length) sum * (v first)) sum println