groups

name language licence
64-bit Number from a String Perl Other
Convert a number to text Perl MIT



language: Perl
licence: MIT

Convert a number to text

options: view full snippet • send to code collector 
#!/usr/bin/perl
# 
# Turn a number into its spelled-out equivalent
#
#######################################################
#
# Pre-defined data
%segVals = ( '0' => '',
	     '1' => 'thousand, ',
	     '2' => 'million, ',
	     '3' => 'billion, ',
	     '4' => 'trillion, ',
	     '5' => 'quadrillion, ',
	     '6' => 'quintillion, ',
	     '7' => 'sextillion, ',
(Continues...)