functiona($)dim$s$s=4,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,6,6,5,5,5,7,6,6,three,four,five,six,seven,eight,nine,ten,eleven,twelvewhile1$a=""+$a+$+" is "iffour=$|4=$$a=$a+magic.exitelseif$>99$=$s[($^)+25-(($^)>7&instr($,y)>)]else$=$s[iif($<20,$,$/10+18)]+$s[$mod10]*($>19&$mod10>)endif$a=$a+$+". "endfunction
functiona($)dim$b$b=three,four,five,six,seven,eight,nine,ten,eleven,twelve$a=''+$+' is 'iffour=$or$=4$a=$a+magic.elseif$>99$=$b[($^)-3-(instr($,' ')orinstr($,'-'))]else$b=0,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6$=iif($<20,$b[$mod20]+4*($=0),$b[$/10+20]+$b[$mod10])endif$a=$a+$+'. '+a($)endfunction
functiona($)dim$b$b=0,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6,three,four,five,six,seven,eight,nine,ten,eleven,twelve$a=''+$+' is 'iffour=$or$=4$a=$a+magic.elseif$>99$=$b[($^)+27-(($^)>7&instr($,y)>)]else$=iif($<20,$b[$mod20]+4*($=0),$b[$/10+20]+$b[$mod10])endif$a=$a+$+'. '+a($)endfunction
functiona($)dim$s$s=4,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,6,6,5,5,5,7,6,6,three,four,five,six,seven,eight,nine,ten,eleven,twelve$a=""+$a+$+" is "iffour=$|4=$$a=$a+magic.exitelseif$>99$=$s[($^)+25-(($^)>7&instr($,y)>)]else$=$s[iif($<20,$,$/10+18)]+$s[$mod10]*($>19&$mod10>)endif$a=$a+$+". "+a($)endfunction
Ah well, haven't thought of that exit now being superfluos..
303:
Code:
functiona($)dim$s$s=4,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,6,6,5,5,5,7,6,6,three,four,five,six,seven,eight,nine,ten,eleven,twelve$a=""+$a+$+" is "iffour=$|4=$$a=$a+magic.elseif$>99$=$s[($^)+25-(($^)>7&instr($,y)>)]else$=$s[iif($<20,$,$/10+18)]+$s[$mod10]*($>19&$mod10>)endif$a=$a+$+". "+a($)endfunction
sorry guys. have been driving back home for the past 3 hours. here is mine:
Code:
functiona($)$a=($=)*4,one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6if0<$+1$a=($a[$mod(20-10*($>19))]^)+$a[20+$/10]else$a=$a[($^)-(($^)>8+(seventeen=$))]endififfour=$^$=4$a=""+$+" is magic."else$a=""+$+" is "+$a+". "+a($a)endfunction
I like that too I was actually able to get one other code to 283 too and it had a dim but I prefer this one. oh and that seventeen in there. there is another way to determine with as low strokes, but I thought it was darn funny so I left it like this.
functiona($)$a=($=)*4,one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6if$>99$a=$a[($^)-(($^)>8+(seventeen=$))]else$a=($a[$mod(20-10*($>19))]^)+$a[20+$/10]endififfour=$^$=4$a=""+$+" is magic."else$a=""+$+" is "+$a+". "+a($a)endfunction
functiona($)$a=($=)*4,3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6if$>99$a=$a[($^)-(($^)>8+(seventeen=$))]else$a=($a[$mod(20-10*($>19))]^)+$a[20+$/10]endififfour=$^$=4$a=""+$+" is magic."else$a=""+$+" is "+$a+". "+a($a)endfunction
Honestly guys, these codes are so wicked. I kinda see how you only used 3-12 words, but how you got the lengths with the bigger ones is truly artistic.
functiona($)$a=($=)*4,3,3,three,four,five,six,seven,eight,nine,ten,eleven,twelve,8,8,7,7,9,8,8,0,0,6,6,5,5,5,7,6,6if$>99$a=$a[($^)-(($^)>7&instr($,y)>)]else$a=($a[$mod(20-10*($>19))]^)+$a[20+$/10]endififfour=$^$=4$a=""+$+" is magic."else$a=""+$+" is "+$a+". "+a($a)endfunction
