C to Perl converter by FizzyTea

for(;;)print(readline()[s='replace'](/^[}#m].*|    /,'')[s]('//','#')[s](/^int/,'my')[s](/\b[abi]\b/g,'$$$&'))

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

download

return to the top page