1
2
3
#define print(x)main(){printf("%s",x);}
print("w00t!\n");
# * ) 2>_$$; echo   "hello polyglots"; rm _$$; exit;

1
2
#define print(x)        main(){printf("%s",x);}
print("w00t!\n");

1
2
#define print(x)        main(){printf("%s",x);}
print("w00t!\n");

1
 

1
2
3
4
5
6
7
8
9
#define a /* 
#! \
sub 'echo {print @_; print "\n"}
#' 2>/dev/null
# \
echo "CI-3641 Rocks!"; exit;
# \
sub puts{};
puts "CI-3641 Rocks!";
 ...

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar" || "racecar"% tnirp

1
2
3
#include <stdio.h>    
#define print(x) int main(){printf(x"\n");return        0;} //  +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++.++++++.----------------------------.++++++.+++.--.---.-----------------.++++++++++++++++++++++++++++++++++++++++++++++++++.+++++++++++++++++++++++++++++.------------.++++++++.++++++++.----------------------------------------------------------------------------------. 
print("CI-3641 Rocks!")

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar" || "racecar"% tnirp 

1
2
3
4
5
6
7
8
9
                                                                     
                                                                     
                                                                     
                                             
#include <stdio.h>    
#define print(x) int main(){printf(x"\n");return        0;} //  ++++++++[>++++[>++>+++>+++>+<<<<-]>+>->+>>+[<]<-]>>.>>---.+++++++..+++.>.<<-.>.+++.------.--------.>+.>++. 
#define printfn "$s" "hello"
print("Hello World!")           
                          
 ...

1
2
3
4
5
6
7
8
9
                                                       
                                                                     
                                             
 
 
 
                                                                         (*O/*_/
Cu  #%* )pop mark/CuG 4 def/# 2 def%%%%@@P[TX---P\P_SXPY!Ex(mx2ex("SX!Ex4P)Ex=
CuG #%*                                                                  *+Ex=
 ...

1
2
3
4
5
6
7
8
9
 
 
 
                                                                         (*O/*_/
Cu  #%* )pop mark/CuG 4 def/# 2 def%%%%@@P[TX---P\P_SXPY!Ex(mx2ex("SX!Ex4P)Ex=
CuG #%*                                                                  *+Ex=
CuG #%*------------------------------------------------------------------*+Ex=
CuG #%*   POLYGLOT - a program in eight languages      15 February 1991  *+Ex=
CuG #%*   10th Anniversary Edition                      1 December 2001  *+Ex=
 ...

1
2
3
4
5
6
7
8
9
 
 
 
 
                                                                         (*O/*_/
Cu  #%* )pop mark/CuG 4 def/# 2 def%%%%@@P[TX---P\P_SXPY!Ex(mx2ex("SX!Ex4P)Ex=
CuG #%*                                                                  *+Ex=
CuG #%*------------------------------------------------------------------*+Ex=
CuG #%*   POLYGLOT - a program in eight languages      15 February 1991  *+Ex=
 ...

1
2
3
4
5
6
7
8
9
 
 
                                                                         (*O/*_/
Cu  #%* )pop mark/CuG 4 def/# 2 def%%%%@@P[TX---P\P_SXPY!Ex(mx2ex("SX!Ex4P)Ex=
CuG #%*                                                                  *+Ex=
CuG #%*------------------------------------------------------------------*+Ex=
CuG #%*   POLYGLOT - a program in eight languages      15 February 1991  *+Ex=
CuG #%*   10th Anniversary Edition                      1 December 2001  *+Ex=
CuG #%*                                                                  *+Ex=
 ...

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar" || "racecar"% tnirp 

1
print + "Hello, World\n";"n\dlroW ,olleH" + tnirp

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar" || "racecar"% tnirp

1
while (($_ = $*IN.get) != 42) { say $_ }

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar" || "racecar"% tnirp

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use LWP::UserAgent;
my $ua = new LWP::UserAgent;
open A,"num.txt"; 
my @a=<A>; 
my $i=0;
foreach my $b (@a){ 
  chomp $b;
  foreach $g (0..99) { 
 ...

1
print %"racecar" || "racecar"% tnirp

1
print %"racecar"