Four is magic: Difference between revisions
→{{header|UNIX Shell}}: Add implementation |
→{{header|UNIX Shell}}: Add implementation |
||
Line 2,288: | Line 2,288: | ||
Eight is five, five is four, four is magic. |
Eight is five, five is four, four is magic. |
||
Nine is four, four is magic. |
Nine is four, four is magic. |
||
</pre> |
|||
=={{header|Wren}}== |
=={{header|Wren}}== |
Revision as of 18:18, 23 August 2020
You are encouraged to solve this task according to the task description, using any language you may know.
- Task
Write a subroutine, function, whatever it may be called in your language, that takes an integer number and returns an English text sequence starting with the English cardinal representation of that integer, the word 'is' and then the English cardinal representation of the count of characters that made up the first word, followed by a comma.
Continue the sequence by using the previous count word as the first word of the next phrase, append 'is' and the cardinal count of the letters in that word.
Continue until you reach four. Since four has four characters, finish by adding the words 'four is magic' and a period. All integers will eventually wind up at four.
For instance, suppose your are given the integer 3. Convert 3 to Three, add is , then the cardinal character count of three, or five, with a comma to separate if from the next phrase. Continue the sequence five is four, (five has four letters), and finally, four is magic.
Three is five, five is four, four is magic.
For reference, here are outputs for 0 through 9.
Zero is four, four is magic. One is three, three is five, five is four, four is magic. Two is three, three is five, five is four, four is magic. Three is five, five is four, four is magic. Four is magic. Five is four, four is magic. Six is three, three is five, five is four, four is magic. Seven is five, five is four, four is magic. Eight is five, five is four, four is magic. Nine is four, four is magic.
- Some task guidelines
-
- You may assume the input will only contain integer numbers.
- Cardinal numbers between 20 and 100 may use either hyphens or spaces as word separators but they must use a word separator. (23 is twenty three or twenty-three not twentythree.)
- Cardinal number conversions should follow the English short scale. (billion is 1e9, trillion is 1e12, etc.)
- Cardinal numbers should not include commas. (20140 is twenty thousand one hundred forty not twenty thousand, one hundred forty.)
- When converted to a string, 100 should be one hundred, not a hundred or hundred, 1000 should be one thousand, not a thousand or thousand.
- When converted to a string, there should be no and in the cardinal string. 130 should be one hundred thirty not one hundred and thirty.
- When counting characters, count all of the characters in the cardinal number including spaces and hyphens. One hundred fifty-one should be 21 not 18.
- The output should follow the format "N is K, K is M, M is ... four is magic." (unless the input is 4, in which case the output should simply be "four is magic.")
- The output can either be the return value from the function, or be displayed from within the function.
- You are encouraged, though not mandated to use proper sentence capitalization.
- You may optionally support negative numbers. -7 is negative seven.
- Show the output here for a small representative sample of values, at least 5 but no more than 25. You are free to choose which which numbers to use for output demonstration.
You can choose to use a library, (module, external routine, whatever) to do the cardinal conversions as long as the code is easily and freely available to the public.
If you roll your own, make the routine accept at minimum any integer from 0 up to 999999. If you use a pre-made library, support at least up to unsigned 64 bit integers. (or the largest integer supported in your language if it is less.)
Four is magic is a popular code-golf task. This is not code golf. Write legible, idiomatic and well formatted code.
- Related tasks
AWK
<lang AWK>
- syntax: GAWK -f FOUR_IS_MAGIC.AWK
BEGIN {
init_numtowords() n = split("-1 0 1 2 3 4 5 6 7 8 9 11 21 1995 1000000 1234567890 1100100100100",arr," ") for (i=1; i<=n; i++) { a = arr[i] printf("%s: ",a) do { if (a == 4) { break } a = numtowords(a) b = numtowords(length(a)) printf("%s is %s, ",a,b) a = length(a) } while (b !~ /^four$/) printf("four is magic.\n") } exit(0)
}
- source: The AWK Programming Language, page 75
function numtowords(n, minus,str) {
if (n < 0) { n = n * -1 minus = "minus " } if (n == 0) { str = "zero" } else { str = intowords(n) } gsub(/ /," ",str) gsub(/ $/,"",str) return(minus str)
} function intowords(n) {
n = int(n) if (n >= 1000000000000) { return intowords(n/1000000000000) " trillion " intowords(n%1000000000000) } if (n >= 1000000000) { return intowords(n/1000000000) " billion " intowords(n%1000000000) } if (n >= 1000000) { return intowords(n/1000000) " million " intowords(n%1000000) } if (n >= 1000) { return intowords(n/1000) " thousand " intowords(n%1000) } if (n >= 100) { return intowords(n/100) " hundred " intowords(n%100) } if (n >= 20) { return tens[int(n/10)] " " intowords(n%10) } return(nums[n])
} function init_numtowords() {
split("one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen",nums," ") split("ten twenty thirty forty fifty sixty seventy eighty ninety",tens," ")
} </lang>
- Output:
-1: minus one is nine, nine is four, four is magic. 0: zero is four, four is magic. 1: one is three, three is five, five is four, four is magic. 2: two is three, three is five, five is four, four is magic. 3: three is five, five is four, four is magic. 4: four is magic. 5: five is four, four is magic. 6: six is three, three is five, five is four, four is magic. 7: seven is five, five is four, four is magic. 8: eight is five, five is four, four is magic. 9: nine is four, four is magic. 11: eleven is six, six is three, three is five, five is four, four is magic. 21: twenty one is ten, ten is three, three is five, five is four, four is magic. 1995: one thousand nine hundred ninety five is thirty seven, thirty seven is twelve, twelve is six, six is three, three is five, five is four, four is magic. 1000000: one million is eleven, eleven is six, six is three, three is five, five is four, four is magic. 1234567890: one billion two hundred thirty four million five hundred sixty seven thousand eight hundred ninety is ninety eight, ninety eight is twelve, twelve is six, six is three, three is five, five is four, four is magic. 1100100100100: one trillion one hundred billion one hundred million one hundred thousand one hundred is eighty five, eighty five is eleven, eleven is six, six is three, three is five, five is four, four is magic.
C
<lang c>#include <stdint.h>
- include <stdio.h>
- include <glib.h>
typedef struct named_number_tag {
const char* name; uint64_t number;
} named_number;
const named_number named_numbers[] = {
{ "hundred", 100 }, { "thousand", 1000 }, { "million", 1000000 }, { "billion", 1000000000 }, { "trillion", 1000000000000 }, { "quadrillion", 1000000000000000ULL }, { "quintillion", 1000000000000000000ULL }
};
const named_number* get_named_number(uint64_t n) {
const size_t names_len = sizeof(named_numbers)/sizeof(named_number); for (size_t i = 0; i + 1 < names_len; ++i) { if (n < named_numbers[i + 1].number) return &named_numbers[i]; } return &named_numbers[names_len - 1];
}
size_t append_number_name(GString* str, uint64_t n) {
static const char* small[] = { "zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen" }; static const char* tens[] = { "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety" }; size_t len = str->len; if (n < 20) { g_string_append(str, small[n]); } else if (n < 100) { g_string_append(str, tens[n/10 - 2]); if (n % 10 != 0) { g_string_append_c(str, '-'); g_string_append(str, small[n % 10]); } } else { const named_number* num = get_named_number(n); uint64_t p = num->number; append_number_name(str, n/p); g_string_append_c(str, ' '); g_string_append(str, num->name); if (n % p != 0) { g_string_append_c(str, ' '); append_number_name(str, n % p); } } return str->len - len;
}
GString* magic(uint64_t n) {
GString* str = g_string_new(NULL); for (unsigned int i = 0; ; ++i) { size_t count = append_number_name(str, n); if (i == 0) str->str[0] = g_ascii_toupper(str->str[0]); if (n == 4) { g_string_append(str, " is magic."); break; } g_string_append(str, " is "); append_number_name(str, count); g_string_append(str, ", "); n = count; } return str;
}
void test_magic(uint64_t n) {
GString* str = magic(n); printf("%s\n", str->str); g_string_free(str, TRUE);
}
int main() {
test_magic(5); test_magic(13); test_magic(78); test_magic(797); test_magic(2739); test_magic(4000); test_magic(7893); test_magic(93497412); test_magic(2673497412U); test_magic(10344658531277200972ULL); return 0;
}</lang>
- Output:
Five is four, four is magic. Thirteen is eight, eight is five, five is four, four is magic. Seventy-eight is thirteen, thirteen is eight, eight is five, five is four, four is magic. Seven hundred ninety-seven is twenty-six, twenty-six is ten, ten is three, three is five, five is four, four is magic. Two thousand seven hundred thirty-nine is thirty-eight, thirty-eight is twelve, twelve is six, six is three, three is five, five is four, four is magic. Four thousand is thirteen, thirteen is eight, eight is five, five is four, four is magic. Seven thousand eight hundred ninety-three is forty-one, forty-one is nine, nine is four, four is magic. Ninety-three million four hundred ninety-seven thousand four hundred twelve is seventy-five, seventy-five is twelve, twelve is six, six is three, three is five, five is four, four is magic. Two billion six hundred seventy-three million four hundred ninety-seven thousand four hundred twelve is one hundred, one hundred is eleven, eleven is six, six is three, three is five, five is four, four is magic. Ten quintillion three hundred forty-four quadrillion six hundred fifty-eight trillion five hundred thirty-one billion two hundred seventy-seven million two hundred thousand nine hundred seventy-two is one hundred ninety-seven, one hundred ninety-seven is twenty-four, twenty-four is eleven, eleven is six, six is three, three is five, five is four, four is magic.
C++
Negative numbers are not supported. <lang cpp>#include <iostream>
- include <string>
- include <cctype>
- include <cstdint>
typedef std::uint64_t integer;
const char* small[] = {
"zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen"
};
const char* tens[] = {
"twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety"
};
struct named_number {
const char* name_; integer number_;
};
const named_number named_numbers[] = {
{ "hundred", 100 }, { "thousand", 1000 }, { "million", 1000000 }, { "billion", 1000000000 }, { "trillion", 1000000000000 }, { "quadrillion", 1000000000000000ULL }, { "quintillion", 1000000000000000000ULL }
};
const named_number& get_named_number(integer n) {
constexpr size_t names_len = std::size(named_numbers); for (size_t i = 0; i + 1 < names_len; ++i) { if (n < named_numbers[i + 1].number_) return named_numbers[i]; } return named_numbers[names_len - 1];
}
std::string cardinal(integer n) {
std::string result; if (n < 20) result = small[n]; else if (n < 100) { result = tens[n/10 - 2]; if (n % 10 != 0) { result += "-"; result += small[n % 10]; } } else { const named_number& num = get_named_number(n); integer p = num.number_; result = cardinal(n/p); result += " "; result += num.name_; if (n % p != 0) { result += " "; result += cardinal(n % p); } } return result;
}
inline char uppercase(char ch) {
return static_cast<char>(std::toupper(static_cast<unsigned char>(ch)));
}
std::string magic(integer n) {
std::string result; for (unsigned int i = 0; ; ++i) { std::string text(cardinal(n)); if (i == 0) text[0] = uppercase(text[0]); result += text; if (n == 4) { result += " is magic."; break; } integer len = text.length(); result += " is "; result += cardinal(len); result += ", "; n = len; } return result;
}
void test_magic(integer n) {
std::cout << magic(n) << '\n';
}
int main() {
test_magic(5); test_magic(13); test_magic(78); test_magic(797); test_magic(2739); test_magic(4000); test_magic(7893); test_magic(93497412); test_magic(2673497412U); test_magic(10344658531277200972ULL); return 0;
}</lang>
- Output:
Five is four, four is magic. Thirteen is eight, eight is five, five is four, four is magic. Seventy-eight is thirteen, thirteen is eight, eight is five, five is four, four is magic. Seven hundred ninety-seven is twenty-six, twenty-six is ten, ten is three, three is five, five is four, four is magic. Two thousand seven hundred thirty-nine is thirty-eight, thirty-eight is twelve, twelve is six, six is three, three is five, five is four, four is magic. Four thousand is thirteen, thirteen is eight, eight is five, five is four, four is magic. Seven thousand eight hundred ninety-three is forty-one, forty-one is nine, nine is four, four is magic. Ninety-three million four hundred ninety-seven thousand four hundred twelve is seventy-five, seventy-five is twelve, twelve is six, six is three, three is five, five is four, four is magic. Two billion six hundred seventy-three million four hundred ninety-seven thousand four hundred twelve is one hundred, one hundred is eleven, eleven is six, six is three, three is five, five is four, four is magic. Ten quintillion three hundred forty-four quadrillion six hundred fifty-eight trillion five hundred thirty-one billion two hundred seventy-seven million two hundred thousand nine hundred seventy-two is one hundred ninety-seven, one hundred ninety-seven is twenty-four, twenty-four is eleven, eleven is six, six is three, three is five, five is four, four is magic.
Common Lisp
<lang Lisp>(defun integer-to-text (int)
(format nil "~@(~A~)" (with-output-to-string (out) (loop for n = int then (length c) for c = (format nil "~R" n) while (/= n 4) do (format out "~A is ~R, " c (length c)) finally (format out "four is magic.")))))</lang>
- Output:
"One thousand twenty-four is twenty-four, twenty-four is eleven, eleven is six, six is three, three is five, five is four, four is magic."
F#
The Function
<lang fsharp> //Express an Integer in English Language. Nigel Galloway: September 19th., 2018 let fN=[|[|"";"one";"two";"three";"four";"five";"six";"seven";"eight";"nine"|];
[|"ten";"eleven";"twelve";"thirteen";"fourteen";"fifteen";"sixteen";"seventeen";"eighteen";"nineteen"|]; [|"";"";"twenty";"thirty";"fourty";"fifty";"sixty";"seventy";"eighty";"ninety"|]|]
let rec I2α α β=match α with |α when α<20 ->β+fN.[α/10].[α%10]
|α when α<100 ->I2α (α%10) (β+fN.[2].[α/10]+if α%10>0 then " " else "") |α when α<1000 ->I2α (α-(α/100)*100) (β+fN.[0].[α/100]+" hunred"+if α%100>0 then " and " else "") |α when α<1000000->I2α (α%1000) (β+(I2α (α/1000) "")+" thousand"+if α%100=0 then "" else if (α-(α/1000)*1000)<100 then " and " else " ")
</lang>
The Task
<lang fsharp> let rec printI2α=function |0->printf "naught->"; printI2α 6
|4->printfn "four is magic" |n when n<0->let g = I2α -n "minus " in printf "%s->" g; printI2α (g.Length) |n ->let g = I2α n "" in printf "%s->" g; printI2α (g.Length)
let N=System.Random() List.init 25 (fun _->N.Next 999999) |> List.iter printI2α </lang>
- Output:
seven hundred and fifty thousand nine hundred and eighty eight->sixty->five->four is magic nine hundred and fifty four thousand two hundred and twenty two->sixty one->nine->four is magic three hundred and seventy two thousand nine hundred and thirty one->sixty four->ten->three->five->four is magic six hundred and three thousand six hundred and eighteen->fifty three->eleven->six->three->five->four is magic two hundred and forty nine thousand three hundred and eighty eight->sixty five->ten->three->five->four is magic four hundred and sixty two thousand four hundred and ninety nine->sixty two->nine->four is magic six hundred and fifty thousand eight hundred and seventy five->fifty nine->ten->three->five->four is magic six hundred and ninety three thousand two hundred and seventy nine->sixty four->ten->three->five->four is magic one hundred and thirty three thousand four hundred and seventy six->sixty four->ten->three->five->four is magic seven hundred and thirty two thousand nine hundred and fifteen->sixty->five->four is magic seven hundred and seven thousand five hundred and forty one->fifty eight->eleven->six->three->five->four is magic twenty five thousand six hundred and two->thirty nine->eleven->six->three->five->four is magic seven hundred and sixty nine thousand two hundred and sixty four->sixty two->nine->four is magic eight hundred and ninety five thousand eight hundred and two->fifty eight->eleven->six->three->five->four is magic four hundred and eleven thousand one hundred and four->fifty one->nine->four is magic four hundred and ninety five thousand eight hundred and eighty one->sixty four->ten->three->five->four is magic six hundred and fifty six thousand one hundred and eighty seven->sixty one->nine->four is magic five hundred and twenty two thousand seven hundred and fifty->fifty eight->eleven->six->three->five->four is magic three hundred and forty four thousand and ninety two->fifty two->nine->four is magic three hundred and forty one thousand seven hundred and forty four->sixty five->ten->three->five->four is magic eight hundred and eighty four thousand two hundred and fifty->fifty eight->eleven->six->three->five->four is magic six hundred and forty thousand seven hundred and sixteen->fifty five->ten->three->five->four is magic six hundred and eight thousand three hundred and five->fifty one->nine->four is magic three hundred and ninety nine thousand two hundred and sixty eight->sixty four->ten->three->five->four is magic six hundred and ninety two thousand two hundred and seventy five->sixty two->nine->four is magic
Some particular values:
printI2α 0 -> naught->six->three->five->four is magic printI2α 4 -> four is magic printI2α 999999 -> nine hundred and ninety nine thousand nine hundred and ninety nine->sixty four->ten->three->five->four is magic printI2α -23 -> minus twenty three->eighteen->eight->five->four is magic
Factor
Factor's math.text.english
vocabulary does most of the heavy lifting. Since number>text
produces " and " and "," in its output, they are removed with a regular expression.
<lang factor>USING: ascii formatting io kernel make math.text.english regexp
sequences ;
IN: rosetta-code.four-is-magic
! Strip " and " and "," from the output of Factor's number>text ! word with a regular expression.
- number>english ( n -- str )
number>text R/ and |,/ "" re-replace ;
! Return the length of the input integer's text form. ! e.g. 1 -> 3
- next-len ( n -- m ) number>english length ;
! Given a starting integer, return the sequence of lengths ! terminating with 4. ! e.g. 1 -> { 1 3 5 4 }
- len-chain ( n -- seq )
[ [ dup 4 = ] [ dup , next-len ] until , ] { } make ;
! Convert a non-four number to its phrase form. ! e.g. 6 -> "six is three, "
- non-four ( n -- str )
number>english dup length number>english "%s is %s, " sprintf ;
! Convert any number to its phrase form. ! e.g. 4 -> "four is magic."
- phrase ( n -- str )
dup 4 = [ drop "four is magic." ] [ non-four ] if ;
- say-magic ( n -- )
len-chain [ phrase ] map concat capitalize print ;
{ 1 4 -11 100 112719908181724 -612312 } [ say-magic ] each</lang>
- Output:
One is three, three is five, five is four, four is magic. Four is magic. Negative eleven is fifteen, fifteen is seven, seven is five, five is four, four is magic. One hundred is eleven, eleven is six, six is three, three is five, five is four, four is magic. One hundred twelve trillion seven hundred nineteen billion nine hundred eight million one hundred eighty-one thousand seven hundred twenty-four is one hundred forty-three, one hundred forty-three is twenty-three, twenty-three is twelve, twelve is six, six is three, three is five, five is four, four is magic. Negative six hundred twelve thousand three hundred twelve is fifty-seven, fifty-seven is eleven, eleven is six, six is three, three is five, five is four, four is magic.
Go
Uses the say
function from the
Number names task.
<lang go>package main
import ( "fmt" "math" "strings" )
func main() { for _, n := range [...]int64{ 0, 4, 6, 11, 13, 75, 100, 337, -164, math.MaxInt64, } { fmt.Println(fourIsMagic(n)) } }
func fourIsMagic(n int64) string { s := say(n) s = strings.ToUpper(s[:1]) + s[1:] t := s for n != 4 { n = int64(len(s)) s = say(n) t += " is " + s + ", " + s } t += " is magic." return t }
// Following is from https://rosettacode.org/wiki/Number_names#Go
var small = [...]string{"zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen"} var tens = [...]string{"", "", "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety"} var illions = [...]string{"", " thousand", " million", " billion", " trillion", " quadrillion", " quintillion"}
func say(n int64) string { var t string if n < 0 { t = "negative " // Note, for math.MinInt64 this leaves n negative. n = -n } switch { case n < 20: t += small[n] case n < 100: t += tens[n/10] s := n % 10 if s > 0 { t += "-" + small[s] } case n < 1000: t += small[n/100] + " hundred" s := n % 100 if s > 0 { t += " " + say(s) } default: // work right-to-left sx := "" for i := 0; n > 0; i++ { p := n % 1000 n /= 1000 if p > 0 { ix := say(p) + illions[i] if sx != "" { ix += " " + sx } sx = ix } } t += sx } return t }</lang>
- Output:
Zero is four, four is magic. Four is magic. Six is three, three is five, five is four, four is magic. Eleven is six, six is three, three is five, five is four, four is magic. Thirteen is eight, eight is five, five is four, four is magic. Seventy-five is twelve, twelve is six, six is three, three is five, five is four, four is magic. One hundred is eleven, eleven is six, six is three, three is five, five is four, four is magic. Three hundred thirty-seven is twenty-six, twenty-six is ten, ten is three, three is five, five is four, four is magic. Negative one hundred sixty-four is thirty-one, thirty-one is ten, ten is three, three is five, five is four, four is magic. Nine quintillion two hundred twenty-three quadrillion three hundred seventy-two trillion thirty-six billion eight hundred fifty-four million seven hundred seventy-five thousand eight hundred seven is one hundred ninety-six, one hundred ninety-six is twenty-two, twenty-two is ten, ten is three, three is five, five is four, four is magic.
J
<lang J> names =. 'one';'two';'three';'four';'five';'six';'seven';'eight';'nine';'ten';'eleven';'twelve';'thirteen';'fourteen';'fifteen';'sixteen';'seventeen';'eighteen';'nineteen'
tens =. ;'twenty';'thirty';'forty';'fifty';'sixty';'seventy';'eighty';'ninety'
NB. selects the xth element from list y lookup =: >@{:@{.
NB. string formatting addspace =: ((' '"_, ]) ` ]) @. (<&0 @ {: @ $)
NB. numbers in range 1 to 19 s1 =: lookup&names
NB. numbers in range 20 to 99 s2d=: (lookup&tens @ <. @ %&10) , addspace @ (s1 @ (10&|))
NB. numbers in range 100 to 999 s3d =: s1 @ (<.@%&100), ' hundred', addspace @ s2d @ (100&|)
NB. numbers in range 1 to 999 s123d =: s1 ` s2d ` s3d @. (>& 19 + >&99)
NB. numbers in range 1000 to 999999 s456d =: (s123d @<.@%&1000), ' thousand', addspace @ s123d @ (1000&|)
NB. stringify numbers in range 1 to 999999 stringify =: s123d ` s456d @. (>&999)
NB. takes an int and returns an int of the length of the string of the input lengthify =: {: @ $ @ stringify
NB. determines the string that should go after ' is ' what =: ((stringify @ lengthify), (', '"_)) ` ('magic'"_) @. (=&4)
runonce =: stringify , ' is ', what
run =: runonce, ((run @ lengthify) ` ("_) @. (=&4))
doall =: run"0
inputs =: 4 8 16 25 89 365 2586 25865 369854
doall inputs
</lang>
- Output:
four is magic eight is five, five is four, four is magic sixteen is seven, seven is five, five is four, four is magic twenty five is eleven, eleven is six, six is three, three is five, five is four, four is magic eighty nine is eleven, eleven is six, six is three, three is five, five is four, four is magic three hundred sixty five is twenty four, twenty four is eleven, eleven is six, six is three, three is five, five is four, four is magic two thousand five hundred eighty six is thirty six, thirty six is ten, ten is three, three is five, five is four, four is magic twenty five thousand eight hundred sixty five is forty five, forty five is ten, ten is three, three is five, five is four, four is magic three hundred sixty nine thousand eight hundred fifty four is fifty eight, fifty eight is eleven, eleven is six, six is three, three is five, five is four, four is magic
Java
<lang Java> public class FourIsMagic {
public static void main(String[] args) { for ( long n : new long[] {6, 60, 89, 300, 670, 2000, 2467, 20000, 24500,200000, 230000, 246571, 2300000, 2465712, 20000000, 24657123, 230000000, 245000000, -246570000, 123456789712345l, 8777777777777777777L, Long.MAX_VALUE}) { String magic = fourIsMagic(n); System.out.printf("%d = %s%n", n, toSentence(magic)); } } private static final String toSentence(String s) { return s.substring(0,1).toUpperCase() + s.substring(1) + "."; } private static final String[] nums = new String[] { "zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen" }; private static final String[] tens = new String[] {"zero", "ten", "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety"};
private static final String fourIsMagic(long n) { if ( n == 4 ) { return numToString(n) + " is magic"; } String result = numToString(n); return result + " is " + numToString(result.length()) + ", " + fourIsMagic(result.length()); } private static final String numToString(long n) { if ( n < 0 ) { return "negative " + numToString(-n); } int index = (int) n; if ( n <= 19 ) { return nums[index]; } if ( n <= 99 ) { return tens[index/10] + (n % 10 > 0 ? " " + numToString(n % 10) : ""); } String label = null; long factor = 0; if ( n <= 999 ) { label = "hundred"; factor = 100; } else if ( n <= 999999) { label = "thousand"; factor = 1000; } else if ( n <= 999999999) { label = "million"; factor = 1000000; } else if ( n <= 999999999999L) { label = "billion"; factor = 1000000000; } else if ( n <= 999999999999999L) { label = "trillion"; factor = 1000000000000L; } else if ( n <= 999999999999999999L) { label = "quadrillion"; factor = 1000000000000000L; } else { label = "quintillion"; factor = 1000000000000000000L; } return numToString(n / factor) + " " + label + (n % factor > 0 ? " " + numToString(n % factor ) : ""); }
} </lang>
- Output:
6 = Six is three, three is five, five is four, four is magic. 60 = Sixty is five, five is four, four is magic. 89 = Eighty nine is eleven, eleven is six, six is three, three is five, five is four, four is magic. 300 = Three hundred is thirteen, thirteen is eight, eight is five, five is four, four is magic. 670 = Six hundred seventy is nineteen, nineteen is eight, eight is five, five is four, four is magic. 2000 = Two thousand is twelve, twelve is six, six is three, three is five, five is four, four is magic. 2467 = Two thousand four hundred sixty seven is thirty seven, thirty seven is twelve, twelve is six, six is three, three is five, five is four, four is magic. 20000 = Twenty thousand is fifteen, fifteen is seven, seven is five, five is four, four is magic. 24500 = Twenty four thousand five hundred is thirty three, thirty three is twelve, twelve is six, six is three, three is five, five is four, four is magic. 200000 = Two hundred thousand is twenty, twenty is six, six is three, three is five, five is four, four is magic. 230000 = Two hundred thirty thousand is twenty seven, twenty seven is twelve, twelve is six, six is three, three is five, five is four, four is magic. 246571 = Two hundred forty six thousand five hundred seventy one is fifty five, fifty five is ten, ten is three, three is five, five is four, four is magic. 2300000 = Two million three hundred thousand is thirty four, thirty four is eleven, eleven is six, six is three, three is five, five is four, four is magic. 2465712 = Two million four hundred sixty five thousand seven hundred twelve is sixty five, sixty five is ten, ten is three, three is five, five is four, four is magic. 20000000 = Twenty million is fourteen, fourteen is eight, eight is five, five is four, four is magic. 24657123 = Twenty four million six hundred fifty seven thousand one hundred twenty three is seventy seven, seventy seven is thirteen, thirteen is eight, eight is five, five is four, four is magic. 230000000 = Two hundred thirty million is twenty six, twenty six is ten, ten is three, three is five, five is four, four is magic. 245000000 = Two hundred forty five million is thirty, thirty is six, six is three, three is five, five is four, four is magic. -246570000 = Negative two hundred forty six million five hundred seventy thousand is sixty eight, sixty eight is eleven, eleven is six, six is three, three is five, five is four, four is magic. 123456789712345 = One hundred twenty three trillion four hundred fifty six billion seven hundred eighty nine million seven hundred twelve thousand three hundred forty five is one hundred fifty three, one hundred fifty three is twenty three, twenty three is twelve, twelve is six, six is three, three is five, five is four, four is magic. 8777777777777777777 = Eight quintillion seven hundred seventy seven quadrillion seven hundred seventy seven trillion seven hundred seventy seven billion seven hundred seventy seven million seven hundred seventy seven thousand seven hundred seventy seven is two hundred thirty one, two hundred thirty one is twenty two, twenty two is ten, ten is three, three is five, five is four, four is magic. 9223372036854775807 = Nine quintillion two hundred twenty three quadrillion three hundred seventy two trillion thirty six billion eight hundred fifty four million seven hundred seventy five thousand eight hundred seven is one hundred ninety six, one hundred ninety six is twenty two, twenty two is ten, ten is three, three is five, five is four, four is magic.
JavaScript
Utilizing the new BigInt type (added in ECMAScript 2019), and akin to the Python example, this implementation supports numbers as high as at least 10^3003, and could support even higher values by adding items to the dictionary.
To test whether a particular JavaScript interpreter implements BigInt
, we can evaluate a boolean expression like:
<lang javascript>Object.getOwnPropertyNames(this).includes('BigInt')</lang>
<lang javascript>const reverseOrderedNumberToTextMap = (function () {
const rawNumberToTextMapping = { // Ported over from the Python solution. [1n]: "one", [2n]: "two", [3n]: "three", [4n]: "four", [5n]: "five", [6n]: "six", [7n]: "seven", [8n]: "eight", [9n]: "nine", [10n]: "ten", [11n]: "eleven", [12n]: "twelve", [13n]: "thirteen", [14n]: "fourteen", [15n]: "fifteen", [16n]: "sixteen", [17n]: "seventeen", [18n]: "eighteen", [19n]: "nineteen", [20n]: "twenty", [30n]: "thirty", [40n]: "forty", [50n]: "fifty", [60n]: "sixty", [70n]: "seventy", [80n]: "eighty", [90n]: "ninety", [100n]: "hundred", [1000n]: "thousand", [10n ** 6n]: "million", [10n ** 9n]: "billion", [10n ** 12n]: "trillion", [10n ** 15n]: "quadrillion", [10n ** 18n]: "quintillion", [10n ** 21n]: "sextillion", [10n ** 24n]: "septillion", [10n ** 27n]: "octillion", [10n ** 30n]: "nonillion", [10n ** 33n]: "decillion", [10n ** 36n]: "undecillion", [10n ** 39n]: "duodecillion", [10n ** 42n]: "tredecillion", [10n ** 45n]: "quattuordecillion", [10n ** 48n]: "quinquadecillion", [10n ** 51n]: "sedecillion", [10n ** 54n]: "septendecillion", [10n ** 57n]: "octodecillion", [10n ** 60n]: "novendecillion", [10n ** 63n]: "vigintillion", [10n ** 66n]: "unvigintillion", [10n ** 69n]: "duovigintillion", [10n ** 72n]: "tresvigintillion", [10n ** 75n]: "quattuorvigintillion", [10n ** 78n]: "quinquavigintillion", [10n ** 81n]: "sesvigintillion", [10n ** 84n]: "septemvigintillion", [10n ** 87n]: "octovigintillion", [10n ** 90n]: "novemvigintillion", [10n ** 93n]: "trigintillion", [10n ** 96n]: "untrigintillion", [10n ** 99n]: "duotrigintillion", [10n ** 102n]: "trestrigintillion", [10n ** 105n]: "quattuortrigintillion", [10n ** 108n]: "quinquatrigintillion", [10n ** 111n]: "sestrigintillion", [10n ** 114n]: "septentrigintillion", [10n ** 117n]: "octotrigintillion", [10n ** 120n]: "noventrigintillion", [10n ** 123n]: "quadragintillion", [10n ** 153n]: "quinquagintillion", [10n ** 183n]: "sexagintillion", [10n ** 213n]: "septuagintillion", [10n ** 243n]: "octogintillion", [10n ** 273n]: "nonagintillion", [10n ** 303n]: "centillion", [10n ** 306n]: "uncentillion", [10n ** 309n]: "duocentillion", [10n ** 312n]: "trescentillion", [10n ** 333n]: "decicentillion", [10n ** 336n]: "undecicentillion", [10n ** 363n]: "viginticentillion", [10n ** 366n]: "unviginticentillion", [10n ** 393n]: "trigintacentillion", [10n ** 423n]: "quadragintacentillion", [10n ** 453n]: "quinquagintacentillion", [10n ** 483n]: "sexagintacentillion", [10n ** 513n]: "septuagintacentillion", [10n ** 543n]: "octogintacentillion", [10n ** 573n]: "nonagintacentillion", [10n ** 603n]: "ducentillion", [10n ** 903n]: "trecentillion", [10n ** 1203n]: "quadringentillion", [10n ** 1503n]: "quingentillion", [10n ** 1803n]: "sescentillion", [10n ** 2103n]: "septingentillion", [10n ** 2403n]: "octingentillion", [10n ** 2703n]: "nongentillion", [10n ** 3003n]: "millinillion" };
return new Map(Object.entries(rawNumberToTextMapping) .sort((a, b) => BigInt(a[0]) > BigInt(b[0]) ? -1 : 1) .map(numberAndText => [BigInt(numberAndText[0]), numberAndText[1]]));
})();
function getCardinalRepresentation(number)
{
if (number == 0n) { return "zero"; }
function* generateCardinalRepresentationTokens(number) { if (number <= 0n) { yield "negative"; number *= -1n; }
for (const [currentEntryNumber, currentEntryText] of reverseOrderedNumberToTextMap.entries()) { if (number >= currentEntryNumber) { if (currentEntryNumber >= 100n) { yield* generateCardinalRepresentationTokens(number / currentEntryNumber); }
yield currentEntryText; number -= currentEntryNumber; } } }
return [...generateCardinalRepresentationTokens(number)].join(" ");
}
function* generateFourIsMagicParts(number) {
if (typeof number != "bigint") { number = BigInt(number); }
if (number == 4n) { yield "four is magic"; } else { const cardinalRepresentation = getCardinalRepresentation(number); yield `${cardinalRepresentation} is ${getCardinalRepresentation(BigInt(cardinalRepresentation.length))}`; yield* generateFourIsMagicParts(cardinalRepresentation.length); }
}
function capitalizeFirstLetter(str) {
return str.replace(/^([a-z])/, chr => chr.toUpperCase());
}
function fourIsMagic(number) {
return capitalizeFirstLetter(`${[...generateFourIsMagicParts(number)].join(", ")}.`);
}
[
0, -150, 210, 10n ** 2703n + 1225n, 4, -4, 10n ** 3003n + 42n
].map(fourIsMagic).join("\n\n");</lang>
- Output:
Zero is four, four is magic. Negative one hundred fifty is twenty six, twenty six is ten, ten is three, three is five, five is four, four is magic. Two hundred ninety twenty is twenty five, twenty five is eleven, eleven is six, six is three, three is five, five is four, four is magic. One nongentillion one thousand two hundred ninety thirty five is sixty one, sixty one is nine, nine is four, four is magic. Four is magic. Negative four is thirteen, thirteen is eight, eight is five, five is four, four is magic. One millinillion forty two is twenty six, twenty six is ten, ten is three, three is five, five is four, four is magic.
Julia
<lang julia># The num2text routines are from the "Number names" task, updated for Julia 1.0
const stext = ["one", "two", "three", "four", "five",
"six", "seven", "eight", "nine"]
const teentext = ["eleven", "twelve", "thirteen", "fourteen",
"fifteen", "sixteen", "seventeen", "eighteen", "nineteen"]
const tenstext = ["ten", "twenty", "thirty", "forty", "fifty",
"sixty", "seventy", "eighty", "ninety"]
const ordstext = ["million", "billion", "trillion",
"quadrillion", "quintillion", "sextillion", "septillion", "octillion", "nonillion", "decillion", "undecillion", "duodecillion", "tredecillion", "quattuordecillion", "quindecillion", "sexdecillion", "septendecillion", "octodecillion", "novemdecillion", "vigintillion"]
function normalize_digits!(a)
while 0 < length(a) && a[end] == 0 pop!(a) end return length(a)
end
function digits2text!(d, use_short_scale=true)
ndig = normalize_digits!(d) 0 < ndig || return "" if ndig < 7 s = "" if 3 < ndig t = digits2text!(d[1:3]) s = digits2text!(d[4:end])*" thousand" 0 < length(t) || return s if occursin("and", t) return s*" "*t else return s*" and "*t end end if ndig == 3 s *= stext[pop!(d)]*" hundred" ndig = normalize_digits!(d) 0 < ndig || return s s *= " and " end 1 < ndig || return s*stext[pop!(d)] j, i = d j != 0 || return s*tenstext[i] i != 1 || return s*teentext[j] return s*tenstext[i]*"-"*stext[j] end s = digits2text!(d[1:6]) d = d[7:end] dgrp = use_short_scale ? 3 : 6 ord = 0 while(dgrp < length(d)) ord += 1 t = digits2text!(d[1:dgrp]) d = d[(dgrp+1):end] 0 < length(t) || continue t = t*" "*ordstext[ord] if length(s) == 0 s = t else s = t*" "*s end end ord += 1 t = digits2text!(d)*" "*ordstext[ord] 0 < length(s) || return t return t*" "*s
end
function num2text(n, use_short_scale=true)
-1 < n || return "minus "*num2text(-n, use_short_scale) 0 < n || return "zero" toobig = use_short_scale ? big(10)^66 : big(10)^126 n < toobig || return "too big to say" return digits2text!(digits(n, base=10), use_short_scale)
end
function magic(n)
str = uppercasefirst(num2text(n)) n = length(str) while true numtext = num2text(n) str *= " is " * numtext if numtext == "four" break end str *= ", " * numtext n = length(numtext) end println(str[1:7] == "Four is" ? "Four is magic." : "$str, four is magic.")
end
for n in [0, 4, 6, 11, 13, 75, 337, -164, 9_876_543_209]
magic(n)
end
</lang>
- Output:
Zero is four, four is magic. Four is magic. Six is three, three is five, five is four, four is magic. Eleven is six, six is three, three is five, five is four, four is magic. Thirteen is eight, eight is five, five is four, four is magic. Seventy-five is twelve, twelve is six, six is three, three is five, five is four, four is magic. Three hundred and thirty-seven is thirty, thirty is six, six is three, three is five, five is four, four is magic. Minus one hundred and sixty-four is thirty-two, thirty-two is ten, ten is three, three is five, five is four, four is magic. Nine billion eight hundred and seventy-six million five hundred and forty-three thousand two hundred and nine is one hundred and nine, one hundred and nine is twenty, twenty is six, six is three, three is five, five is four, four is magic.
Kotlin
This uses the code I wrote for the Number names task, appropriately adjusted to deal with this task. Input is limited to signed 64 bit integers as Kotlin doesn't currently support unsigned types. <lang scala>// version 1.1.4-3
val names = mapOf(
1 to "one", 2 to "two", 3 to "three", 4 to "four", 5 to "five", 6 to "six", 7 to "seven", 8 to "eight", 9 to "nine", 10 to "ten", 11 to "eleven", 12 to "twelve", 13 to "thirteen", 14 to "fourteen", 15 to "fifteen", 16 to "sixteen", 17 to "seventeen", 18 to "eighteen", 19 to "nineteen", 20 to "twenty", 30 to "thirty", 40 to "forty", 50 to "fifty", 60 to "sixty", 70 to "seventy", 80 to "eighty", 90 to "ninety"
) val bigNames = mapOf(
1_000L to "thousand", 1_000_000L to "million", 1_000_000_000L to "billion", 1_000_000_000_000L to "trillion", 1_000_000_000_000_000L to "quadrillion", 1_000_000_000_000_000_000L to "quintillion"
)
fun numToText(n: Long): String {
if (n == 0L) return "zero" val neg = n < 0L val maxNeg = n == Long.MIN_VALUE var nn = if (maxNeg) -(n + 1) else if (neg) -n else n val digits3 = IntArray(7) for (i in 0..6) { // split number into groups of 3 digits from the right digits3[i] = (nn % 1000).toInt() nn /= 1000 }
fun threeDigitsToText(number: Int) : String { val sb = StringBuilder() if (number == 0) return "" val hundreds = number / 100 val remainder = number % 100 if (hundreds > 0) { sb.append(names[hundreds], " hundred") if (remainder > 0) sb.append(" ") } if (remainder > 0) { val tens = remainder / 10 val units = remainder % 10 if (tens > 1) { sb.append(names[tens * 10]) if (units > 0) sb.append("-", names[units]) } else sb.append(names[remainder]) } return sb.toString() }
val strings = Array<String>(7) { threeDigitsToText(digits3[it]) } var text = strings[0] var big = 1000L for (i in 1..6) { if (digits3[i] > 0) { var text2 = strings[i] + " " + bigNames[big] if (text.length > 0) text2 += " " text = text2 + text } big *= 1000 } if (maxNeg) text = text.dropLast(5) + "eight" if (neg) text = "negative " + text return text
}
fun fourIsMagic(n: Long): String {
if (n == 4L) return "Four is magic." var text = numToText(n).capitalize() val sb = StringBuilder() while (true) { val len = text.length.toLong() if (len == 4L) return sb.append("$text is four, four is magic.").toString() val text2 = numToText(len) sb.append("$text is $text2, ") text = text2 }
}
fun main(args: Array<String>) {
val la = longArrayOf(0, 4, 6, 11, 13, 75, 100, 337, -164, 9_223_372_036_854_775_807L) for (i in la) { println(fourIsMagic(i)) println() }
}</lang>
- Output:
Zero is four, four is magic. Four is magic. Six is three, three is five, five is four, four is magic. Eleven is six, six is three, three is five, five is four, four is magic. Thirteen is eight, eight is five, five is four, four is magic. Seventy-five is twelve, twelve is six, six is three, three is five, five is four, four is magic. One hundred is eleven, eleven is six, six is three, three is five, five is four, four is magic. Three hundred thirty-seven is twenty-six, twenty-six is ten, ten is three, three is five, five is four, four is magic. Negative one hundred sixty-four is thirty-one, thirty-one is ten, ten is three, three is five, five is four, four is magic. Nine quintillion two hundred twenty-three quadrillion three hundred seventy-two trillion thirty-six billion eight hundred fifty-four million seven hundred seventy-five thousand eight hundred seven is one hundred ninety-six, one hundred ninety-six is twenty-two, twenty-two is ten, ten is three, three is five, five is four, four is magic.
Lua
<lang lua>-- Four is magic, in Lua, 6/16/2020 db local oneslist = { [0]="", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine" } local teenlist = { [0]="ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen" } local tenslist = { [0]="", "", "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety" } local lionlist = { [0]="", "thousand", "million", "billion", "trillion", "quadrillion", "quintillion", "sextillion", "septillion", "octillion", "nonillion", "decillion" } local abs, floor = math.abs, math.floor
local function numname(num)
if (num == 0) then return "zero" end local absnum, lion, result = abs(num), 0, "" local function dashed(s) return s=="" and s or "-"..s end local function spaced(s) return s=="" and s or " "..s end while (absnum > 0) do local word, ones, tens, huns = "", absnum%10, floor(absnum/10)%10, floor(absnum/100)%10 if (tens==0) then word = oneslist[ones] elseif (tens==1) then word = teenlist[ones] else word = tenslist[tens] .. dashed(oneslist[ones]) end if (huns > 0) then word = oneslist[huns] .. " hundred" .. spaced(word) end if (word ~= "") then result = word .. spaced(lionlist[lion]) .. spaced(result) end absnum = floor(absnum / 1000) lion = lion + 1 end if (num < 0) then result = "negative " .. result end return result
end
local function fourismagic(num)
local function fim(num) local name = numname(num) if (num == 4) then return name .. " is magic." else local what = numname(#name) return name .. " is " .. what .. ", " .. fim(#name) end end local result = fim(num):gsub("^%l", string.upper) return result
end
local numbers = { -21,-1, 0,1,2,3,4,5,6,7,8,9, 12,34,123,456,1024,1234,12345,123456,1010101 } for _, num in ipairs(numbers) do
print(num, fourismagic(num))
end</lang>
- Output:
-21 Negative twenty-one is nineteen, nineteen is eight, eight is five, five is four, four is magic. -1 Negative one is twelve, twelve is six, six is three, three is five, five is four, four is magic. 0 Zero is four, four is magic. 1 One is three, three is five, five is four, four is magic. 2 Two is three, three is five, five is four, four is magic. 3 Three is five, five is four, four is magic. 4 Four is magic. 5 Five is four, four is magic. 6 Six is three, three is five, five is four, four is magic. 7 Seven is five, five is four, four is magic. 8 Eight is five, five is four, four is magic. 9 Nine is four, four is magic. 12 Twelve is six, six is three, three is five, five is four, four is magic. 34 Thirty-four is eleven, eleven is six, six is three, three is five, five is four, four is magic. 123 One hundred twenty-three is twenty-four, twenty-four is eleven, eleven is six, six is three, three is five, five is four, four is magic. 456 Four hundred fifty-six is twenty-two, twenty-two is ten, ten is three, three is five, five is four, four is magic. 1024 One thousand twenty-four is twenty-four, twenty-four is eleven, eleven is six, six is three, three is five, five is four, four is magic. 1234 One thousand two hundred thirty-four is thirty-six, thirty-six is ten, ten is three, three is five, five is four, four is magic. 12345 Twelve thousand three hundred forty-five is forty, forty is five, five is four, four is magic. 123456 One hundred twenty-three thousand four hundred fifty-six is fifty-six, fifty-six is nine, nine is four, four is magic. 1010101 One million ten thousand one hundred one is forty, forty is five, five is four, four is magic.
Perl
<lang perl>use Lingua::EN::Numbers qw(num2en);
sub cardinal {
my($n) = @_; (my $en = num2en($n)) =~ s/\ and|,//g; $en;
}
sub magic {
my($int) = @_; my $str; while () { $str .= cardinal($int) . " is "; if ($int == 4) { $str .= "magic.\n"; last } else { $int = length cardinal($int); $str .= cardinal($int) . ", "; } } ucfirst $str;
}
print magic($_) for 0, 4, 6, 11, 13, 75, 337, -164, 9_876_543_209;</lang>
- Output:
Zero is four, four is magic. Four is magic. Six is three, three is five, five is four, four is magic. Eleven is six, six is three, three is five, five is four, four is magic. Thirteen is eight, eight is five, five is four, four is magic. Seventy-five is twelve, twelve is six, six is three, three is five, five is four, four is magic. Three hundred thirty-seven is twenty-six, twenty-six is ten, ten is three, three is five, five is four, four is magic. Negative one hundred sixty-four is thirty-one, thirty-one is ten, ten is three, three is five, five is four, four is magic. Nine billion eight hundred seventy-six million five hundred forty-three thousand two hundred nine is ninety-seven, ninety-seven is twelve, twelve is six, six is three, three is five, five is four, four is magic.
Phix
Note that on 32-bit Phix integers/atoms are only accurate to 9,007,199,254,740,992 (a hardware limit of 64-bit floating point registers) so if you need more than that this will need to be reworked to use bigatoms. <lang Phix>--<adapted from demo\rosetta\number_names.exw, which alas outputs ",", "and", uses "minus" instead of "negative", etc...> constant twenties = {"zero","one","two","three","four","five","six","seven","eight","nine","ten",
"eleven","twelve","thirteen","fourteen","fifteen","sixteen","seventeen","eighteen","nineteen"}, decades = {"twenty","thirty","forty","fifty","sixty","seventy","eighty","ninety"}
function hundred(integer n)
if n<20 then return twenties[mod(n,20)+1] elsif mod(n,10)=0 then return decades[mod(floor(n/10),10)-1] end if return decades[mod(floor(n/10),10)-1] & '-' & twenties[mod(n,10)+1]
end function
function thousand(integer n)
if n<100 then return hundred(n) elsif mod(n,100)=0 then return twenties[mod(floor(n/100),20)+1]&" hundred" end if return twenties[mod(floor(n/100),20)+1] & " hundred " & hundred(mod(n,100))
end function
constant orders = {{power(10,12),"trillion"},
{power(10,9),"billion"}, {power(10,6),"million"}, {power(10,3),"thousand"}}
function triplet(integer n) atom order, high, low string name, res = ""
for i=1 to length(orders) do {order,name} = orders[i] high = floor(n/order) low = mod(n,order) if high!=0 then res &= thousand(high)&' '&name end if n = low if low=0 then exit end if if length(res) and high!=0 then res &= " " end if end for if n!=0 or res="" then res &= thousand(floor(n)) end if return res
end function
function spell(integer n) string res = ""
if n<0 then res = "negative " n = -n end if res &= triplet(n) return res
end function --</adapted from number_names.exw>
function fourIsMagic(atom n)
string s = spell(n) s[1] = upper(s[1]) string t = s while n!=4 do n = length(s) s = spell(n) t &= " is " & s & ", " & s end while t &= " is magic.\n" return t
end function
constant tests = {-7, -1, 0, 1, 2, 3, 4, 23, 1e9, 20140, 100, 130, 151, 999999} for i=1 to length(tests) do
puts(1,fourIsMagic(tests[i]))
end for</lang>
- Output:
Negative seven is fourteen, fourteen is eight, eight is five, five is four, four is magic. Negative one is twelve, twelve is six, six is three, three is five, five is four, four is magic. Zero is four, four is magic. One is three, three is five, five is four, four is magic. Two is three, three is five, five is four, four is magic. Three is five, five is four, four is magic. Four is magic. Twenty-three is twelve, twelve is six, six is three, three is five, five is four, four is magic. One billion is eleven, eleven is six, six is three, three is five, five is four, four is magic. Twenty thousand one hundred forty is thirty-three, thirty-three is twelve, twelve is six, six is three, three is five, five is four, four is magic. One hundred is eleven, eleven is six, six is three, three is five, five is four, four is magic. One hundred thirty is eighteen, eighteen is eight, eight is five, five is four, four is magic. One hundred fifty-one is twenty-one, twenty-one is ten, ten is three, three is five, five is four, four is magic. Nine hundred ninety-nine thousand nine hundred ninety-nine is fifty-eight, fifty-eight is eleven, eleven is six, six is three, three is five, five is four, four is magic.
Python
Python 3 version. Should work for integers up to at least 10^3003. It can be extended easily to arbitrary integers by adding to the numbers dict.
<lang python>import random from collections import OrderedDict
numbers = { # taken from https://en.wikipedia.org/wiki/Names_of_large_numbers#cite_ref-a_14-3
1: 'one', 2: 'two', 3: 'three', 4: 'four', 5: 'five', 6: 'six', 7: 'seven', 8: 'eight', 9: 'nine', 10: 'ten', 11: 'eleven', 12: 'twelve', 13: 'thirteen', 14: 'fourteen', 15: 'fifteen', 16: 'sixteen', 17: 'seventeen', 18: 'eighteen', 19: 'nineteen', 20: 'twenty', 30: 'thirty', 40: 'forty', 50: 'fifty', 60: 'sixty', 70: 'seventy', 80: 'eighty', 90: 'ninety', 100: 'hundred', 1000: 'thousand', 10 ** 6: 'million', 10 ** 9: 'billion', 10 ** 12: 'trillion', 10 ** 15: 'quadrillion', 10 ** 18: 'quintillion', 10 ** 21: 'sextillion', 10 ** 24: 'septillion', 10 ** 27: 'octillion', 10 ** 30: 'nonillion', 10 ** 33: 'decillion', 10 ** 36: 'undecillion', 10 ** 39: 'duodecillion', 10 ** 42: 'tredecillion', 10 ** 45: 'quattuordecillion', 10 ** 48: 'quinquadecillion', 10 ** 51: 'sedecillion', 10 ** 54: 'septendecillion', 10 ** 57: 'octodecillion', 10 ** 60: 'novendecillion', 10 ** 63: 'vigintillion', 10 ** 66: 'unvigintillion', 10 ** 69: 'duovigintillion', 10 ** 72: 'tresvigintillion', 10 ** 75: 'quattuorvigintillion', 10 ** 78: 'quinquavigintillion', 10 ** 81: 'sesvigintillion', 10 ** 84: 'septemvigintillion', 10 ** 87: 'octovigintillion', 10 ** 90: 'novemvigintillion', 10 ** 93: 'trigintillion', 10 ** 96: 'untrigintillion', 10 ** 99: 'duotrigintillion', 10 ** 102: 'trestrigintillion', 10 ** 105: 'quattuortrigintillion', 10 ** 108: 'quinquatrigintillion', 10 ** 111: 'sestrigintillion', 10 ** 114: 'septentrigintillion', 10 ** 117: 'octotrigintillion', 10 ** 120: 'noventrigintillion', 10 ** 123: 'quadragintillion', 10 ** 153: 'quinquagintillion', 10 ** 183: 'sexagintillion', 10 ** 213: 'septuagintillion', 10 ** 243: 'octogintillion', 10 ** 273: 'nonagintillion', 10 ** 303: 'centillion', 10 ** 306: 'uncentillion', 10 ** 309: 'duocentillion', 10 ** 312: 'trescentillion', 10 ** 333: 'decicentillion', 10 ** 336: 'undecicentillion', 10 ** 363: 'viginticentillion', 10 ** 366: 'unviginticentillion', 10 ** 393: 'trigintacentillion', 10 ** 423: 'quadragintacentillion', 10 ** 453: 'quinquagintacentillion', 10 ** 483: 'sexagintacentillion', 10 ** 513: 'septuagintacentillion', 10 ** 543: 'octogintacentillion', 10 ** 573: 'nonagintacentillion', 10 ** 603: 'ducentillion', 10 ** 903: 'trecentillion', 10 ** 1203: 'quadringentillion', 10 ** 1503: 'quingentillion', 10 ** 1803: 'sescentillion', 10 ** 2103: 'septingentillion', 10 ** 2403: 'octingentillion', 10 ** 2703: 'nongentillion', 10 ** 3003: 'millinillion'
} numbers = OrderedDict(sorted(numbers.items(), key=lambda t: t[0], reverse=True))
def string_representation(i: int) -> str:
""" Return the english string representation of an integer """ if i == 0: return 'zero'
words = ['negative'] if i < 0 else [] working_copy = abs(i)
for key, value in numbers.items(): if key <= working_copy: times = int(working_copy / key)
if key >= 100: words.append(string_representation(times))
words.append(value) working_copy -= times * key
if working_copy == 0: break
return ' '.join(words)
def next_phrase(i: int):
""" Generate all the phrases """ while not i == 4: # Generate phrases until four is reached str_i = string_representation(i) len_i = len(str_i)
yield str_i, 'is', string_representation(len_i)
i = len_i
# the last phrase yield string_representation(i), 'is', 'magic'
def magic(i: int) -> str:
phrases = []
for phrase in next_phrase(i): phrases.append(' '.join(phrase))
return f'{", ".join(phrases)}.'.capitalize()
if __name__ == '__main__':
for j in (random.randint(0, 10 ** 3) for i in range(5)): print(j, ':\n', magic(j), '\n')
for j in (random.randint(-10 ** 24, 10 ** 24) for i in range(2)): print(j, ':\n', magic(j), '\n')</lang>
- Output:
475 : Four hundred seventy five is twenty five, twenty five is eleven, eleven is six, six is three, three is five, five is four, four is magic. 968 : Nine hundred sixty eight is twenty four, twenty four is eleven, eleven is six, six is three, three is five, five is four, four is magic. 304 : Three hundred four is eighteen, eighteen is eight, eight is five, five is four, four is magic. 544 : Five hundred forty four is twenty three, twenty three is twelve, twelve is six, six is three, three is five, five is four, four is magic. 394 : Three hundred ninety four is twenty five, twenty five is eleven, eleven is six, six is three, three is five, five is four, four is magic. -49587779907680717664396 : Negative forty nine sextillion five hundred eighty seven quintillion seven hundred seventy nine quadrillion nine hundred seven trillion six hundred eighty billion seven hundred seventeen million six hundred sixty four thousand three hundred ninety six is two hundred fifty one, two hundred fifty one is twenty one, twenty one is ten, ten is three, three is five, five is four, four is magic. 874143425855745733896030 : Eight hundred seventy four sextillion one hundred forty three quintillion four hundred twenty five quadrillion eight hundred fifty five trillion seven hundred forty five billion seven hundred thirty three million eight hundred ninety six thousand thirty is two hundred fifty three, two hundred fifty three is twenty three, twenty three is twelve, twelve is six, six is three, three is five, five is four, four is magic.
Racket
<lang racket>
- lang racket
(require rackunit)
(define smalls
(map symbol->string '(zero one two three four five six seven eight nine ten eleven twelve thirteen fourteen fifteen sixteen seventeen eighteen nineteen)))
(define tens
(map symbol->string '(zero ten twenty thirty forty fifty sixty seventy eighty ninety)))
(define larges
(map symbol->string '(thousand million billion trillion quadrillion quintillion sextillion septillion octillion nonillion decillion undecillion duodecillion tredecillion quattuordecillion quindecillion sexdecillion septendecillion octodecillion novemdecillion vigintillion)))
(define (number->words n)
(define (step div suffix separator [subformat number->words]) (define-values [q r] (quotient/remainder n div)) (define S (if suffix (~a (subformat q) " " suffix) (subformat q))) (if (zero? r) S (~a S separator (number->words r)))) (cond [(< n 0) (~a "negative " (number->words (- n)))] [(< n 20) (list-ref smalls n)] [(< n 100) (step 10 #f "-" (curry list-ref tens))] [(< n 1000) (step 100 "hundred" " ")] [else (let loop ([N 1000000] [D 1000] [unit larges]) (cond [(null? unit) (error 'number->words "number too big: ~e" n)] [(< n N) (step D (car unit) " ")] [else (loop (* 1000 N) (* 1000 D) (cdr unit))]))]))
(define (first-cap s)
(~a (string-upcase (substring s 0 1)) (substring s 1)))
(define (magic word [acc null])
(if (equal? word "four") (string-join (reverse (cons "four is magic." acc)) ", \n") (let* ([word-len (string-length word)] [words (number->words word-len)]) (magic words (cons (string-append word " is " words) acc)))))
(define (number-magic n)
(first-cap (magic (number->words n))))
(for ([n (append (range 11)
'(-10 23 172 20140 100 130 999999 876000000 874143425855745733896030))]) (displayln n) (displayln (number-magic n)) (newline))
</lang>
- Output:
0 Zero is four, four is magic. 1 One is three, three is five, five is four, four is magic. 2 Two is three, three is five, five is four, four is magic. 3 Three is five, five is four, four is magic. 4 Four is magic. 5 Five is four, four is magic. 6 Six is three, three is five, five is four, four is magic. 7 Seven is five, five is four, four is magic. 8 Eight is five, five is four, four is magic. 9 Nine is four, four is magic. 10 Ten is three, three is five, five is four, four is magic. -10 Negative ten is twelve, twelve is six, six is three, three is five, five is four, four is magic. 23 Twenty-three is twelve, twelve is six, six is three, three is five, five is four, four is magic. 172 One hundred seventy-two is twenty-three, twenty-three is twelve, twelve is six, six is three, three is five, five is four, four is magic. 20140 Twenty thousand one hundred forty is thirty-three, thirty-three is twelve, twelve is six, six is three, three is five, five is four, four is magic. 100 One hundred is eleven, eleven is six, six is three, three is five, five is four, four is magic. 130 One hundred thirty is eighteen, eighteen is eight, eight is five, five is four, four is magic. 999999 Nine hundred ninety-nine thousand nine hundred ninety-nine is fifty-eight, fifty-eight is eleven, eleven is six, six is three, three is five, five is four, four is magic. 876000000 Eight hundred seventy-six million is thirty-three, thirty-three is twelve, twelve is six, six is three, three is five, five is four, four is magic. 874143425855745733896030 Eight hundred seventy-four sextillion one hundred forty-three quintillion four hundred twenty-five quadrillion eight hundred fifty-five trillion seven hundred forty-five billion seven hundred thirty-three million eight hundred ninety-six thousand thirty is two hundred fifty-three, two hundred fifty-three is twenty-three, twenty-three is twelve, twelve is six, six is three, three is five, five is four, four is magic.
Raku
(formerly Perl 6)
Lingua::EN::Numbers module available from the Raku ecosystem.
<lang perl6>use Lingua::EN::Numbers; # Version 2.4.0 or higher
sub card ($n) { cardinal($n).subst(/','/, , :g) }
sub magic (Int $int is copy) {
my $string; loop { $string ~= "{ card($int) } is "; if $int = ($int == 4) ?? 0 !! card($int).chars { $string ~= "{ card($int) }, " } else { $string ~= "magic.\n"; last } } $string.tc
}
.&magic.say for 0, 4, 6, 11, 13, 75, 337, -164, 9876543209, 2**256;</lang>
- Output:
Zero is four, four is magic. Four is magic. Six is three, three is five, five is four, four is magic. Eleven is six, six is three, three is five, five is four, four is magic. Thirteen is eight, eight is five, five is four, four is magic. Seventy-five is twelve, twelve is six, six is three, three is five, five is four, four is magic. Three hundred thirty-seven is twenty-six, twenty-six is ten, ten is three, three is five, five is four, four is magic. Negative one hundred sixty-four is thirty-one, thirty-one is ten, ten is three, three is five, five is four, four is magic. Nine billion eight hundred seventy-six million five hundred forty-three thousand two hundred nine is ninety-seven, ninety-seven is twelve, twelve is six, six is three, three is five, five is four, four is magic. One hundred fifteen quattuorvigintillion seven hundred ninety-two trevigintillion eighty-nine duovigintillion two hundred thirty-seven unvigintillion three hundred sixteen vigintillion one hundred ninety-five novemdecillion four hundred twenty-three octodecillion five hundred seventy septendecillion nine hundred eighty-five sexdecillion eight quindecillion six hundred eighty-seven quattuordecillion nine hundred seven tredecillion eight hundred fifty-three duodecillion two hundred sixty-nine undecillion nine hundred eighty-four decillion six hundred sixty-five nonillion six hundred forty octillion five hundred sixty-four septillion thirty-nine sextillion four hundred fifty-seven quintillion five hundred eighty-four quadrillion seven trillion nine hundred thirteen billion one hundred twenty-nine million six hundred thirty-nine thousand nine hundred thirty-six is eight hundred sixty-nine, eight hundred sixty-nine is twenty-four, twenty-four is eleven, eleven is six, six is three, three is five, five is four, four is magic.
REXX
The numbers used for the default were taken from the Kotlin example.
Numbers are limited to 3,003 decimal digits, the maximum number that the $SPELL# REXX program will handle. <lang rexx>/*REXX pgm converts a # to English into the phrase: a is b, b is c, ... four is magic. */ numeric digits 3003 /*be able to handle gihugic numbers. */ parse arg x /*obtain optional numbers from the C.L.*/ if x= then x=-164 0 4 6 11 13 75 100 337 9223372036854775807 /*use these defaults?*/ @.=. /*stemmed array used for memoization. */
do j=1 for words(x) /*process each of the numbers in list. */ say 4_is( word(x, j) ) /*display phrase that'll be returned. */ say /*display a blank line between outputs.*/ end /*j*/
exit /*stick a fork in it, we're all done. */ /*──────────────────────────────────────────────────────────────────────────────────────*/ 4_is: procedure expose @.; parse arg #,,$ /*obtain the start number.*/
if #\==4 then do until L==4 /*Not 4? Process number.*/ @.#=$spell#(# 'quiet minus negative') /*spell number in English.*/ #=@.#; L=length(#) /*get the length of spelt#*/ if @.L==. then @.L=$spell#(L 'quiet') /*¬spelt before? Spell it.*/ $=$ # "is" @.L',' /*add phrase to the answer*/ #=L /*use the new number, ··· */ end /*until*/ /* ··· which will be spelt*/ $=strip($ 'four is magic.') /*finish the sentence with the finale. */ parse var $ first 2 other; upper first /*capitalize the first letter of output*/ return first || other /*return the sentence to the invoker. */</lang>
The $SPELL#.REX routine can be found here ───► $SPELL#.REX.
- output when using the default inputs:
Negative one hundred sixty-four is thirty-one, thirty-one is ten, ten is three, three is five, five is four, four is magic. Zero is four, four is magic. Four is magic. Six is three, three is five, five is four, four is magic. Eleven is six, six is three, three is five, five is four, four is magic. Thirteen is eight, eight is five, five is four, four is magic. Seventy-five is twelve, twelve is six, six is three, three is five, five is four, four is magic. One hundred is eleven, eleven is six, six is three, three is five, five is four, four is magic. Three hundred thirty-seven is twenty-six, twenty-six is ten, ten is three, three is five, five is four, four is magic. Nine quintillion two hundred twenty-three quadrillion three hundred seventy-two trillion thirty-six billion eight hundred fifty-four million seven hundred seventy-five thousand eight hundred seven is one hundred ninety-six, one hundred ninety-six is twenty-two, twenty-two is ten, ten is three, three is five, five is four, four is magic.
Ring
<lang ring> /* Checking numbers from 0 to 10 */ for c = 0 to 10 See checkmagic(c) + NL next
/* The functions */
Func CheckMagic numb CardinalN = "" Result = "" if isnumber(numb) = false or numb < 0 or numb > 999_999_999_999_999 Return "ERROR: Number entered is incorrect" ok if numb = 4 Result = "Four is magic." else While True if CardinalN = "four" Result += "four is magic" exit ok strnumb = StringNumber(numb) CardinalN = StringNumber(len(strnumb)) Result += strnumb + " is " + CardinalN + ", " numb = len(strnumb) End Result += "." Result = upper(Result[1]) + Right(Result, len(Result) -1) ok
Return Result
Func StringNumber cnumb
NumStr = [:n0 = "zero", :n1 = "one", :n2 = "two", :n3 = "three", :n4 = "four", :n5 = "five", :n6 = "six", :n7 = "seven", :n8 = "eight", :n9 = "nine", :n10 = "ten", :n11 = "eleven", :n12 = "twelve", :n13 = "thirteen", :n14 = "fourteen", :n15 = "fifteen", :n16 = "sixteen", :n17 = "seventeen", :n18 = "eighteen", :n19 = "nineteen", :n20 = "twenty", :n30 = "thirty", :n40 = "fourty", :n50 = "fifty", :n60 = "sixty", :n70 = "seventy", :n80 = "eighty", :n90 = "ninety"]
numLev = [:l1 = "", :l2 = "thousand", :l3 = "million", :l4 = "billion", :l5 = "trillion"]
Result = ""
if cnumb > 0 decimals(0) snumb = string((cnumb)) lnumb = [""] fl = floor(len(snumb) / 3) if fl > 0 for i = 1 to fl lnumb[i] = right(snumb, 3) snumb = left(snumb, len(snumb) -3) lnumb + "" next if (len(snumb) % 3) > 0 lnumb[len(lnumb)] = snumb else del(lnumb, len(lnumb)) ok else lnumb[1] = snumb ok for l = len(lnumb) to 1 step -1 bnumb = lnumb[l] bResult = "" if number(bnumb) != 0 for n = len(bnumb) to 1 step -1 if (len(bnumb) = 3 and n = 2) or (len(bnumb) = 2 and n = 1) if number(bnumb[n]) > 1 eval("bResult = NumStr[:n" + bnumb[n] + "0] + ' ' + bResult") elseif number(bnumb[n]) = 1 eval("bResult = NumStr[:n" + bnumb[n] + bnumb[n+1] + "] + ' ' + bResult") ok else if len(bnumb) = 3 and n = 1 and number(bnumb[1]) > 0 if trim(bResult) != "" bResult = " " + bResult ok if number(bnumb[1]) > 1 bResult = "hundreds" + bResult else bResult = "hundred" + bResult ok if left(trim(bResult), 7) = "hundred" bResult = bResult + " " ok ok if (len(bnumb) = 3 and n = 1 and number(bnumb[1]) = 0) OR (len(bnumb) = n and number(bnumb[n]) = 0) OR (len(bnumb) = 3 and number(bnumb[2]) = 1) OR (len(bnumb) = 2 and number(bnumb[1]) = 1) loop ok eval("bResult = NumStr[:n" + bnumb[n] + "] + ' ' + bResult") ok next Result = Result + bResult if l > 1 if number(bnumb) > 1 eval("Result = Result + numLev[:l" + l + "] + 's ' ") else eval("Result = Result + numLev[:l" + l + "] + ' ' ") ok ok ok next else Result = Result + NumStr[:n0] ok
Return trim(Result) </lang> Output:
Zero is four, four is magic. One is three, three is five, five is four, four is magic. Two is three, three is five, five is four, four is magic. Three is five, five is four, four is magic. Four is magic. Five is four, four is magic. Six is three, three is five, five is four, four is magic. Seven is five, five is four, four is magic. Eight is five, five is four, four is magic. Nine is four, four is magic. Ten is three, three is five, five is four, four is magic.
Rust
<lang rust>fn main() {
magic(4); magic(2_340); magic(765_000); magic(27_000_001); magic(999_123_090); magic(239_579_832_723_441); magic(std::u64::MAX);
}
fn magic(num: u64) {
if num == 4 { println!("four is magic!"); println!(); return; } let name = number_name(num); let len = name.len() as u64; print!("{} is {}, ", name, number_name(len)); magic(len);
}
const LOW: &'static [&'static str] = &[
"zero", "one", "two", "three", "four", "five", "six", "seven", "eight","nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen"
]; const MED: &'static [&'static str] = &[
"twenty", "thirty", "forty", "fifty", "sixy", "seventy", "eighty", "ninety"
]; const HIGH: &'static [&'static str] = &[
"thousand", "million", "billion", "trillion", "quadrillion", "quintillion"
];
fn number_name(num: u64) -> String {
if num < 20 { return LOW[num as usize].to_string(); } if num < 100 { let index = ((num / 10) - 2) as usize; let tens = MED[index].to_string(); let remainder = num % 10; if remainder > 0 { return format!("{}-{}", tens, number_name(remainder)); } return tens; } if num < 1000 { let hundreds = LOW[(num / 100) as usize]; let remainder = num % 100; if remainder > 0 { return format!("{} hundred {}", hundreds, number_name(remainder)); } return format!("{} hundred", hundreds); }
let mut remainder = num % 1000; let mut cur = if remainder > 0 { number_name(remainder) } else { "".to_string() }; let mut n = num / 1000;
for noun in HIGH.iter() { if n > 0 { remainder = n % 1000; if remainder > 0 { // this condition resolves double space issues cur = if cur.len() > 0 { format!("{} {} {}", number_name(remainder), noun, cur ) } else { format!("{} {}", number_name(remainder), noun) } } n /= 1000; } } return cur;
}</lang>
- Output:
four is magic! two thousand three hundred forty is thirty-two, thirty-two is ten, ten is three, three is five, five is four, four is magic! seven hundred sixy-five thousand is thirty-two, thirty-two is ten, ten is three, three is five, five is four, four is magic! twenty-seven million one is twenty-four, twenty-four is eleven, eleven is six, six is three, three is five, five is four, four is magic! nine hundred ninety-nine million one hundred twenty-three thousand ninety is seventy-three, seventy-three is thirteen, thirteen is eight, eight is five, five is four, four is magic! two hundred thirty-nine trillion five hundred seventy-nine billion eight hundred thirty-two million seven hundred twenty-three thousand four hundred forty-one is one hundred fifty-eight, one hundred fifty-eight is twenty-three, twenty-three is twelve, twelve is six, six is three, three is five, five is four, four is magic! eighteen quintillion four hundred forty-six quadrillion seven hundred forty-four trillion seventy-three billion seven hundred nine million five hundred fifty-one thousand six hundred fifteen is one hundred ninety, one hundred ninety is eighteen, eighteen is eight, eight is five, five is four, four is magic!
Sidef
<lang ruby>func cardinal(n) {
static lingua_en = frequire("Lingua::EN::Numbers") lingua_en.num2en(n) - / and|,/g
}
func four_is_magic(n) {
var str = "" loop { str += (cardinal(n) + " is ") if (n == 4) { str += "magic." break } else { n = cardinal(n).len str += (cardinal(n) + ", ") } } str.tc
}
[0, 4, 6, 11, 13, 75, 337, -164, 9_876_543_209].each { |n|
say four_is_magic(n)
}</lang>
- Output:
Zero is four, four is magic. Four is magic. Six is three, three is five, five is four, four is magic. Eleven is six, six is three, three is five, five is four, four is magic. Thirteen is eight, eight is five, five is four, four is magic. Seventy-five is twelve, twelve is six, six is three, three is five, five is four, four is magic. Three hundred thirty-seven is twenty-six, twenty-six is ten, ten is three, three is five, five is four, four is magic. Negative one hundred sixty-four is thirty-one, thirty-one is ten, ten is three, three is five, five is four, four is magic. Nine billion eight hundred seventy-six million five hundred forty-three thousand two hundred nine is ninety-seven, ninety-seven is twelve, twelve is six, six is three, three is five, five is four, four is magic.
UNIX Shell
<lang sh># Names for numbers that fit in a bash integer declare -A names=([0]=zero [1]=one [2]=two [3]=three [4]=four [5]=five [6]=six
[7]=seven [8]=eight [9]=nine [10]=ten [11]=eleven [12]=twelve [13]=thirteen [14]=fourteen [15]=fifteen [16]=sixteen [17]=seventeen [18]=eighteen [19]=nineteen [20]=twenty [30]=thirty [40]=forty [50]=fifty [60]=sixty [70]=seventy [80]=eighty [90]=ninety [100]=hundred [1000]=thousand [1000000]=million [1000000000]=billion [1000000000000]=trillion [1000000000000000]=quadrillion [1000000000000000000]=quintillion)
- The powers of 10 above 10, in descending order
powers_of_10=($(printf '%s\n' "${!names[@]}" | sort -nr | grep '00$'))
- Function to return the name of a number given in numeric form
- If the second parameter is passed in, it is appended to the name
- with a space between them; this is to facilitate tail recursion
name_of() {
local -i n=$1 local suffix=$2
# check for easy case first - exclude exact powers of 10 # as we'll need to stick a "one" in front of those. if [[ $n != *00 && -n ${names[$n]} ]]; then printf '%s%s\n' "${names[$n]}" ${suffix:+" $suffix"} return 0 fi
# find the largest power of 10 that n is smaller than n local -i i=0 local -i p=${powers_of_10[i]} while (( p > n && i < ${#powers_of_10[@]}-1 )); do i=i+1 p=${powers_of_10[$i]} done
# if we found one, split on it and construct quotient 'name' remainder if (( n >= p )); then local -i quotient=n/p local -i remainder=n%p local remname= if (( remainder > 0 )); then remname=$(name_of $remainder) fi name_of "$quotient" "${names[$p]}${remname:+ $remname}${suffix:+ $suffix}" else # things are a little different under 100, since the multiples of # 10 have their own names local -i remainder=n%10 local -i tens=n-remainder local remname= if (( remainder > 0 )); then remname=-$(name_of $remainder) fi printf '%s%s%s\n' "${names[$tens]}" "${remname}" ${suffix:+" $suffix"} fi
return 0
}
- Convert numbers into the length of their names
- Display the series of values in name form until
- the length turns into four; then terminate with "four is magic."
- Again, takes a second argument, this time a prefix, to
- facilitate tail recursion.
four_is_magic() {
local -i n=$1 local prefix=$2 local name=$(name_of $n)
# capitalize the first entry if -z $prefix ; then name=${name^} fi
# Stop at 4, otherwise count the length of the name and recurse if (( $n == 4 )); then printf '%s%s is magic.\n' "${prefix:+$prefix, }" "$name" else local -i len=${#name} four_is_magic "$len" "${prefix:+$prefix, }$name is $(name_of $len)" fi
}</lang>
- Output:
# sadly the number of Rubk's cube permutations won't fit into a bash int, # but this is that value minus the first digit (40 quintillion) $ four_is_magic 3252003274489856000 Three quintillion two hundred fifty-two quadrillion three trillion two hundred seventy-four billion four hundred eighty-nine million eight hundred fifty-six thousand is one hundred sixty-five, one hundred sixty-five is twenty-two, twenty-two is ten, ten is three, three is five, five is four, four is magic. # Max Unicode code point $ four_is_magic 1114111 One million one hundred fourteen thousand one hundred eleven is sixty, sixty is five, five is four, four is magic. # Some usual suspects $ four_is_magic 42 Forty-two is nine, nine is four, four is magic. $ four_is_magic 23 Twenty-three is twelve, twelve is six, six is three, three is five, five is four, four is magic. # the units for (( i=0; i<10; i++ )); do four_is_magic $i done Zero is four, four is magic. One is three, three is five, five is four, four is magic. Two is three, three is five, five is four, four is magic. Three is five, five is four, four is magic. Four is magic. Five is four, four is magic. Six is three, three is five, five is four, four is magic. Seven is five, five is four, four is magic. Eight is five, five is four, four is magic. Nine is four, four is magic.
Wren
This reuses the say
function from the Number names task.
Note that it is not safe to use this script for numbers with an absolute magnitude >= 2^53 as integers cannot be expressed exactly by Wren's Num type beyond that limit. <lang ecmascript>import "/str" for Str
var small = ["zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven",
"twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen"]
var tens = ["", "", "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety"]
var illions = ["", " thousand", " million", " billion"," trillion", " quadrillion", " quintillion"]
var say say = Fn.new { |n|
var t = "" if (n < 0) { t = "negative " n = -n } if (n < 20) { t = t + small[n] } else if (n < 100) { t = t + tens[(n/10).floor] var s = n % 10 if (s > 0) t = t + "-" + small[s] } else if (n < 1000) { t = t + small[(n/100).floor] + " hundred" var s = n % 100 System.write("") // guards against VM recursion bug if (s > 0) t = t + " " + say.call(s) } else { var sx = "" var i = 0 while (n > 0) { var p = n % 1000 n = (n/1000).floor if (p > 0) { System.write("") // guards against VM recursion bug var ix = say.call(p) + illions[i] if (sx != "") ix = ix + " " + sx sx = ix } i = i + 1 } t = t + sx } return t
}
var fourIsMagic = Fn.new { |n|
var s = Str.capitalize(say.call(n)) var t = s while (n != 4) { n = s.count s = say.call(n) t = t + " is " + s + ", " + s } return t + " is magic."
}
for (n in [0, 4, 6, 11, 13, 75, 100, 337, -164, 9007199254740991]) {
System.print(fourIsMagic.call(n))
}</lang>
- Output:
Zero is four, four is magic. Four is magic. Six is three, three is five, five is four, four is magic. Eleven is six, six is three, three is five, five is four, four is magic. Thirteen is eight, eight is five, five is four, four is magic. Seventy-five is twelve, twelve is six, six is three, three is five, five is four, four is magic. One hundred is eleven, eleven is six, six is three, three is five, five is four, four is magic. Three hundred thirty-seven is twenty-six, twenty-six is ten, ten is three, three is five, five is four, four is magic. Negative one hundred sixty-four is thirty-one, thirty-one is ten, ten is three, three is five, five is four, four is magic. Nine quadrillion seven trillion one hundred ninety-nine billion two hundred fifty-four million seven hundred forty thousand nine hundred ninety-one is one hundred forty-seven, one hundred forty-seven is twenty-three, twenty-three is twelve, twelve is six, six is three, three is five, five is four, four is magic.
zkl
Limitiation: zkl only has 64 bit signed integars.
Uses the nth function from Spelling_of_ordinal_numbers#zkl
<lang zkl>fcn fourIsMagic(int){
if(int==0) return("Zero is four, four is magic."); string:=""; while(1){ c:=nth(int,False); string+="%s is ".fmt(c); if(int = ( if(int==4) 0 else c.len() )){
string+="%s, ".fmt(nth(int,False));
}else{ string+="magic.";
break;
} } string[0].toUpper() + string[1,*]
}</lang> <lang zkl>foreach n in (T(0,4,6,11,13,75,337,-164,9876543209)){
println(fourIsMagic(n),"\n")
}</lang>
- Output:
Zero is four, four is magic. Four is magic. Six is three, three is five, five is four, four is magic. Eleven is six, six is three, three is five, five is four, four is magic. Thirteen is eight, eight is five, five is four, four is magic. Seventy-five is twelve, twelve is six, six is three, three is five, five is four, four is magic. Three hundred thirty-seven is twenty-six, twenty-six is ten, ten is three, three is five, five is four, four is magic. Negative one hundred sixty-four is thirty-one, thirty-one is ten, ten is three, three is five, five is four, four is magic. Nine billion eight hundred seventy-six million five hundred forty-three thousand two hundred nine is ninety-seven, ninety-seven is twelve, twelve is six, six is three, three is five, five is four, four is magic.