1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
use diagnostics;
 
$str = "12test34" * 3;
 
print "$str\n";
 
exit;
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use LWP::Simple;
use DateTime::Format::Strptime;
 
my $maxpage = 901
my $strp = new DateTime::Format::Strptime(pattern => "%b %d %Y",on_error=>'croak');
my $strf = new DateTime::Format::Strptime(pattern => "%Y-%m-%d",on_error=>'croak');
 
 
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
use LWP::Simple;
use Date::Format;
use DateTime::Format::Strptime;
 
my $maxpage = 901
my $strp = new DateTime::Format::Strptime(pattern => "%b %d %Y",on_error=>'croak');
my $strf = new DateTime::Format::Strptime(pattern => "%Y-%m-%d",on_error=>'croak');
 
 ...

1
2
3
4
5
6
7
8
9
public string Encrypt(string plainText) {
            StringBuilder sb = new StringBuilder();
 
            foreach (char c in plainText) {
                if (Char.IsLetterOrDigit(c)) {
                    int num = (int)c;
                    num = ((num + 10) * 2) + 2;
 
                    sb.AppendFormat("{0} ", num.ToString());
 ...

1
say 1

1
2
3
4
5
6
7
8
9
    ''=~(        '(?{'        .('`'        |'%')        .('['        ^'-')
    .('`'        |'!')        .('`'        |',')        .'"'.        '\\$'
    .'=='        .('['        ^'+')        .('`'        |'/')        .('['
    ^'+')        .'||'        .(';'        &'=')        .(';'        &'=')
    .';-'        .'-'.        '\\$'        .'=;'        .('['        ^'(')
    .('['        ^'.')        .('`'        |'"')        .('!'        ^'+')
   .'_\\{'      .'(\\$'      .';=('.      '\\$=|'      ."\|".(      '`'^'.'
  ).(('`')|    '/').').'    .'\\"'.+(    '{'^'[').    ('`'|'"')    .('`'|'/'
 ).('['^'/')  .('['^'/').  ('`'|',').(  '`'|('%')).  '\\".\\"'.(  '['^('(')).
 ...

1
2
3
4
5
6
7
8
<?php
 
for($i=i;$i=10;$i++){
$notas[$i] = rand(0,7);
}
 
$promedio= array_sum($notas)/count($notas);
echo $promedio;

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

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

1
say 1

1
say 1;

1
say "howdy"

1
say 2;

1
say 1;

1
2
3
my @fib = 1,1, * + * ... * ;
 
say @fib(1);

1
2
3
my @fib = 1,1, * + * ... * ;
 
say @fib(20);

1
2
3
@fib = 1,1, * + * ... * ;
 
say @fib(20);

1
2
3
@fib = 1,1, * + * ... * 
 
say @fib(20)

1
2
3
4
5
6
7
8
9
sub test
{
        test2("Hola Mundo");
 
}
 
sub test2
{
 #my ($self,$var1,$var2) = @_;
 ...

1
2
3
4
5
6
7
8
9
SPPAPPAPAAASPSASSSASSSAPSPASPPAPPASPAPSASAPASPAAAPPPAPPASPA
SPPASSSPPPAAASPAAAPSASPSPAPPPPASAPPSASPASPPAPPPSAPPAPAPSPASSP
PAPPASSPAAASSPAPSPAPSASPPAAASPPAPSPAPAPPASSPPAPAPPPPASPAAASP
SASSSASSASSAPSAAAPSASPSPAPPPPASAPPPPAPPSASPASPPAPAPSPASAPPPSA
PPAPAPSPASSPPAPAPPPPASPAAASSAPPASPAPPSASAPASPAAAPAAAPPPAPASP
SPAPPPPASSPPAPAPPPPASPAAASSPAPSPAPSASPPAAAPPSPAPPSAPASPAPPSPA
PPSASPASPPASSPPAPSSAPSASPASSPPAPPASSPAAASPSASSSASSASSAPSAAAPP
PSAPPAPAPSPAPPPPAPPSASPASPPAPAPSPASAPAPSPPAPPSPAAASSAPPASPAPP
SASAPASP

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
sub test()
{
        test2("Hola Mundo");
 
}
 
sub test2()
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
sub test()
{
        test2("Hola Mundo");
 
}
 
sub test2()
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
sub test()
{
        test2("Hola Mundo");
 
}
 
sub test2()
 ...

1
2
3
4
5
6
7
8
9
#!/usr/bin/perl
 
sub test()
{
        test2("Hola Mundo");
 
}
 
sub test2()
 ...

1
2
3
4
5
6
7
8
9
sub test
{
        test2("Hola Mundo");
 
}
 
sub test2
{
 my ($self,$var1,$var2) = _@;
 ...

1
2
3
4
5
6
7
8
9
sub test
{
        test2("Hola Mundo");
 
}
 
sub test2
{
 my ($self,$var1,$var2) = _@
 ...

1
2
3
4
5
6
7
8
9
sub test
{
        my $self=shift;
        $self->test2("Hola Mundo");
 
}
 
sub test2
{
 ...

1
print "Hello World!\n"

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

1
2
3
4
5
6
7
8
9
use bignum;
 
$x = $*IN;
while(1){
        $x=$x-1;
         if($x eq 0){
                break;
        }
         my $input = $*IN;
 ...