RETAS-Logo
RETAS-Logo
This page is not mobile friendly.
Better watch on bigger screen.

computer/programs/useless/secunet_contest/entry_5

# define  o(o) printf(o) /*
sub o {print(reverse((split
(//,shift))[0..6]) . "\n")}
o `cc -oo $0>&-&&./o;rm o`;
o <<'main()';
tenuces */
main()
{ o("tenuces"); }

This program is bilingual: It can be run with Perl and then prints "secunet" three times. It is also valid C code and hence can be compiled with cc. The produced binary will print "tenuces".

Download the source.

For a better understanding you can
highlight the syntax: [ C | Perl ]