87 lines
2.4 KiB
Plaintext
87 lines
2.4 KiB
Plaintext
#define floor(x) ((x*2.0-0.5) Shr 1)
|
|
|
|
Dim Shared veintes(1 To 20) As String*9 => _
|
|
{"zero", "one", "two", "three", "four", "five", "six", _
|
|
"seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen", _
|
|
"fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen"}
|
|
|
|
Dim Shared decenas(1 To 8) As String*7 => _
|
|
{"twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety"}
|
|
|
|
Type myorder
|
|
var1 As Double
|
|
var2 As String*8
|
|
End Type
|
|
Dim Shared orders(1 To 4) As myorder => _
|
|
{(10^12,"trillion"), (10^9,"billion"), (10^6,"million"), (10^3,"thousand")}
|
|
|
|
Function centenas(n As Integer) As String
|
|
If n < 20 Then
|
|
Return veintes((n Mod 20)+1)
|
|
Elseif (n Mod 10) = 0 Then
|
|
Return decenas((floor(n/10) Mod 10)-1)
|
|
End If
|
|
Return decenas((floor(n/10) Mod 10)-1) & "-" & veintes((n Mod 10)+1)
|
|
End Function
|
|
|
|
Function miles(n As Integer) As String
|
|
If n < 100 Then
|
|
Return centenas(n)
|
|
Elseif (n Mod 100) = 0 Then
|
|
Return veintes((floor(n/100) Mod 20)+1) & " centenas"
|
|
End If
|
|
Return veintes((floor(n/100) Mod 20)+1) & " centenas " & centenas(n Mod 100)
|
|
End Function
|
|
|
|
Function triplet(n As Integer) As String
|
|
Dim As Integer order, high, low
|
|
Dim As String nombre, res = ""
|
|
For i As Integer = 1 To Ubound(orders)
|
|
order = orders(i).var1
|
|
nombre = orders(i).var2
|
|
high = floor(n/order)
|
|
low = (n Mod order)
|
|
If high <> 0 Then res &= miles(high) & " " & nombre
|
|
n = low
|
|
If low = 0 Then Exit For : End If
|
|
If Len(res) And high <> 0 Then res &= " "
|
|
Next i
|
|
If n <> 0 Or res="" Then
|
|
res &= miles(floor(n))
|
|
End If
|
|
Return res
|
|
End Function
|
|
|
|
Function deletrear(n As Integer) As String
|
|
Dim As String res = ""
|
|
If n < 0 Then
|
|
res = "negative "
|
|
n = -n
|
|
End If
|
|
res &= triplet(n)
|
|
|
|
Return res
|
|
End Function
|
|
|
|
Function fourIsMagic(n As Integer) As String
|
|
Dim As String s = deletrear(n)
|
|
s = Mid(Ucase(s), 1, 1) & Mid(s, 2, Len(s))
|
|
Dim As String t = s
|
|
While n <> 4
|
|
n = Len(s)
|
|
s = deletrear(n)
|
|
t &= " is " & s & ", " & s
|
|
Wend
|
|
t &= " is magic."
|
|
Return t
|
|
End Function
|
|
|
|
Dim As Longint tests(1 To 21) = _
|
|
{-21, -1, 0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 12, _
|
|
34, 123, 456, 1024, 1234, 12345, 123456, 1010101}
|
|
|
|
For i As Integer = 1 To Ubound(tests)
|
|
Print Using "#######: &"; tests(i); fourIsMagic(tests(i))
|
|
Next i
|
|
Sleep
|