#202233 - 2011-05-14 09:33 PM
Re: Kixgolf - Four Is Magic - Public Round
[Re: Jochen ]
Allen
KiX Supporter
Registered: 2003-04-19
Posts: 4557
Loc: USA
I can't completely disagree, but... just a quick example of a number whose length is > 100;888,888,888,888
? len ( "eight hundred eighty eight billion, eight hundred eighty eight million, eight hundred eighty eight thousand, eight hundred eighty eight" )
135 edit: or 114, less the commas and spaces
Edited by Allen (2011-05-14 09:52 PM )
Top
#202239 - 2011-05-15 03:47 PM
Re: Kixgolf - Four Is Magic - Public Round
[Re: Lonkero ]
Allen
KiX Supporter
Registered: 2003-04-19
Posts: 4557
Loc: USA
Is this your attempt of finding strokes, like Jochen did?
Top
#202252 - 2011-05-16 06:50 PM
Re: Kixgolf - Four Is Magic - Public Round
[Re: ShaneEP ]
BradV
Seasoned Scripter
Registered: 2006-08-16
Posts: 686
Loc: Maryland, USA
Fun, but I obviously don't have my head wrapped around minimalist programming. Thanks!
Top
#202260 - 2011-05-18 01:24 PM
Re: Kixgolf - Four Is Magic - Public Round
[Re: BradV ]
Allen
KiX Supporter
Registered: 2003-04-19
Posts: 4557
Loc: USA
Private Round Scores
Particip.
Name Score Points Points Total
Jooel 283 5 1 6
Jochen 308 4 1 5
Maciep 316 3 1 4
Glenn 637 2 1 3
Citrix 660 1 1 2
Brad 1085 0 1 1
Public Round Scores
Bonus
Name Score Points Points Total
Richard 255 5 1 6
Jooel 257 4 1 5
Jochen 259 3 1 4
Maciep 316 2 0 2
Glenn 571 1 1 2
Citrix 660 0 0 0
Brad 1085 0 0 0
Total Points
Jooel 11
Jochen 9
Maciep 6
Richard 6
Glenn 5
Citrix 2
Brad 1
Top
#202289 - 2011-05-21 01:44 AM
Re: Kixgolf - Four Is Magic - Public Round
[Re: Lonkero ]
Allen
KiX Supporter
Registered: 2003-04-19
Posts: 4557
Loc: USA
For fun... using Num2Text() - http://www.kixtart.org/forums/ubbthreads.php?ubb=showflat&Number=202256#Post202256 Practically any number can be used, but must be in quotes once the numbers get sufficiently big enough. break on
$RC = setoption ( "WrapATEOL" , "ON" )
$RC = setoption ( "Explicit" , "ON" )
dim $i , $len
$i = "888888888888"
if $i <> 4
? "" + $i + " is "
$len = len ( replace ( num2text ( $i ) , " " , "" ) )
while $len <> 4
"" + $len + ". " + $len + " is "
$len = len ( replace ( num2text ( $len ) , " " , "" ) )
loop
"4. "
endif
"4 is magic."
Outputs 888888888888 is 114. 114 is 20. 20 is 6. 6 is 3. 3 is 5. 5 is 4. 4 is magic.
Edited by Allen (2011-05-21 12:24 PM )
Top
Moderator: Arend_ , Allen , Jochen , Radimus , Glenn Barnas , ShaneEP , Ruud van Velsen , Mart
0 registered
and 368 anonymous users online.