INTERCAL unary operators by tails

map{$==s/(..)\w* */.5+.5*index-ONTWTHFOFISISEEINI,$1/ger;$_=eval$=.$o.($=/2|$=%2<<31);y/IVXLCDivxlcd/XLCDivxlcdIV/while s/I|V/\\$&/g,s/\d/$&-9?(<{,V}{,I{,I,II,V}}>)[$&]:IX/e,//;s/(\G|C)\\*\Ki(?!v)/M/g;s/(^|c)\K\\I(?!.V)/m/;$o=$o?!print$_||NIHIL,$/:qw(^ | &)[-$=]||die}<>

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

To protect the system from spam, please input your favorite sport (hint: I believe its name must start with 'g', case insensitive)

download

return to the top page