sorry guys. have been driving back home for the past 3 hours. here is mine:
Code:
function a($)
$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,6
if 0<$+1
$a=($a[$ mod (20-10*($>19))]^)+$a[20+$/10]
else
$a=$a[($^)-(($^)>8+(seventeen=$))]
endif
if four=$ ^ $=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.
function a($)
$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,6
if $>99
$a=$a[($^)-(($^)>8+(seventeen=$))]
else
$a=($a[$ mod (20-10*($>19))]^)+$a[20+$/10]
endif
if four=$ ^ $=4
$a=""+$+" is magic."
else
$a=""+$+" is " + $a +". "+a($a)
endfunction
function a($)
$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,6
if $>99
$a=$a[($^)-(($^)>8+(seventeen=$))]
else
$a=($a[$ mod (20-10*($>19))]^)+$a[20+$/10]
endif
if four=$ ^ $=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.
function a($)
$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,6
if $>99
$a=$a[($^)-(($^)>7&instr($,y)>)]
else
$a=($a[$ mod (20-10*($>19))]^)+$a[20+$/10]
endif
if four=$ ^ $=4
$a=""+$+" is magic."
else
$a=""+$+" is " + $a +". "+a($a)
endfunction
