1
2
3
4
5
6
7
$x = $*IN;
while(1){
        $x=$x-1;
        if($x==0)break;
        my $input = $*IN;
        print sqrt($input); 
    }

1
2
3
4
5
6
7
8
9
use Int;
 
$x = $*IN;
while(1){
        $x=$x-1;
        if($x==0)break;
    my $input = $*IN;
        my $x = Int->new($input);
        print $x->bsqrt(); 

1
2
3
4
5
6
7
8
9
use bignum;
 
$x = $*IN;
while(1){
        $x=$x-1;
        if($x==0)break;
    my $input = $*IN;
        my $x = Math::BigInt->new($input);
        print $x->bsqrt(); 

1
2
3
4
5
6
7
8
9
use Math::BigInt;
 
$x = $*IN;
while(1){
        $x=$x-1;
        if($x==0)break;
    my $input = $*IN;
        my $x = Math::BigInt->new($input);
        print $x->bsqrt(); 

1
2
3
4
5
6
7
8
9
x = <>use Math::BigInt;
 
$x = $*IN;
while(1){
        $x=$x-1;
        if($x==0)break;
    my $input = $*IN;
        my $x = Math::BigInt->new($input);
        print $x->bsqrt(); 

1
2
3
my $string = 'this is a string of text'; 
$string ~~ s/\b(\w+)\b/ucfirst($1)/ge; 
print "$string\n";

1
2
3
my $string = 'this is a string of text'; 
$string =~ s/\b(\w+)\b/ucfirst($1)/ge; 
print "$string\n";

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

1
2
3
#!/bin/perl
 
print "TEST";

1
2
3
4
5
6
7
8
9
\documentclass[a4j]{jarticle}
\title{A \LaTeX ~sample [Itemize]}
\author{s1200028@u-aizu.ac.jp}
\date{\today}
\begin{document}
\maketitle
\section{Itemize}
\subsection{Itemize}
\begin{itemize}
 ...

1
print "hello, world!/n";

1
2
3
4
5
6
7
8
9
print “Program to generate Fibonacci series\n”;
print “Enter the number of terms in the series:”;
 
        $n=<STDIN>;
        $count=2;
        Print “\n The Fibonacci series is:”;
        print “$a\n$b”;
        $fib=0;
        while($n>$count)
 ...

1
2
3
4
5
6
 
class HelloWorld {
       public static void main(String[] args){
               System.out.println("HelloWorld");
       }
}

1
 

1
my$x35=chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363E \t1;\10".1%2.chr(176/1)."3\x34.";$x34=36;print"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@".chr (80).";\10Py "."c\x41c".chr($x34*2)."!Ng!:\x29\n\7";;

1
2
3
4
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363
E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print
"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80)
.";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;

1
my$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80).";\10Py "."c\x41c".chr ($x34*2 ) .

1
2
3
4
y$x35 =chr(176)."55".chr(46);my$x34 ;$x35=$x35."0\x363
E \t1;\10". 1 % 2 .chr(176/1) ."3\x34."; $x34=36 ;print
"\x4E\11\x350" .$x35."1".$x34% 32 ."\x38\nH@". chr (80)
.";\10Py "."c\x41c".chr ($x34*2 ) ."!Ng! :\x29 \n\7" ;;

1
2
3
4
5
6
7
$var = 1;
$line = <STDIN>;
while ($var < 10) {
$result = $line =~ /$var/o;
$line = <STDIN>;
$var++;
}

1
2
3
4
5
6
7
8
9
use strict;
use warnings;
 
my $magic = 600851475143;
 
sub largestprimef($);
sub max($$);
 
print largestprimef($magic);
 ...

1
foreach $element ("foo".."quux") {print "$element\n"}

1
'foreach $element ("foo".."quux") {print "$element\n"}'

1
 -e 'foreach $element ("foo".."quux") {print "$element\n"}'

1
perl -e 'foreach $element ("foo".."quux") {print "$element\n"}'

1
2
3
4
5
6
7
8
class Caravan is r {
    method ograbit {
        say "caravan orgablen"
    }
}
 
my caravan = Caravan.new;
caravan.ograbit;

1
2
3
4
5
6
7
8
9
                       #
              ####   #####   ####
        ##     #################     ##
         #############   #############
          #######             #######
     ######                         ######
      ###          Spieglein          ###
  ######                               ######
 ######            Spieglein            ######
 ...

1
2
3
4
5
6
7
8
9
                       #
              ####   #####   ####
        ##     #################     ##
         #############   #############
          #######             #######
     ######                         ######
      ###          Spieglein          ###
  ######                               ######
 ######            Spieglein            ######
 ...

1
2
3
4
5
6
7
8
9
xb1lIHRvIG5lYnlsbyB0xJvFvmvDqT8gSmVuIHBybyDDunBsbm9zdCBwcm8gbm9ybcOhbG7DrSAo
dGVkeSBuZXBvxI3DrXRhxI1vdsO9KSAgbGlkIC0gcHJvxI0gUG/FoXRvdm7DrT8gIEvDs2QgQmFz
ZTY0LCBrdGVyw71tIGplIHRlbmhsZSB0ZXh0IHpha8OzZG92w6FuLCBwb3XFvsOtdsOhdGUgbWou
ICAoYW5pxb4gdG8gdMWZZWJhIHbDrXRlKSB2ZSB2xaFlY2ggdmHFoWljaCBlbWFpbG92w71jaCB6
cHLDoXbDoWNoIGsgdG9tdSwgYWJ5IHNlIGsgdsOhbSBuZWJvIG9kIHbDoXMgZG9ixZllIHDFmWVu
ZXNseSB2xaFlY2hueSBWYcWhZSBmb3RreSwgdmlkZWEsIHRleHR5IHMgxI1lc2tvdSBkaWFrcml0
aWtvdSBhIGppbsOpIHZ5Y2h5dMOhdmt5IChvYmVjbsOhIGJpbsOhcm7DrSBkYXRhIHNlIGvDs2R1
asOtIHBvIDYgYml0ZWNoIGRvIHRpc2tudXRlbG7DvWNoIDY0IHpuYWvFrywga3RlcsOpIGpzb3Ug
cMWZZW5vc2l0ZWxuw6EgcG/FoXRvdm7DrW0gIE1JTUUgcHJvdG9rb2xlbSkuIFRha8W+ZSAgdGFr
 ...

1
2
3
4
5
6
7
8
9
def f(n)
  if n < 0
    (1 - 2 * ((1 - n) % 2)) * f(-n)
  elsif n == 0 || n == 1
    n
  else
    f(n - 1) + f(n - 2)
  end
end
 ...

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