Skip to content

Instantly share code, notes, and snippets.

View tomcha's full-sized avatar

tomcha tomcha

12 followers · 16 following
View GitHub Profile
@tomcha
tomcha / ouyou1
Created December 19, 2015 04:16
ouyou1
#!/usr/bin/env perl
use strict;
use warnings;
my @words = ('肉','イカ','ラッパ','カニ','クジラ');
my @shiritori;
$shiritori[0] = $words[1];
$shiritori[1] = $words[3];
$shiritori[2] = $words[0];
@tomcha
tomcha / 50.pl
Created December 4, 2015 02:03
50
#!/usr/bin/env perl
use strict;
use warnings;
for (my $i = 0; $i <10; $i++){
print "Papix!!\n";
}
@tomcha
tomcha / 49.pl
Created December 4, 2015 01:35
49
#!/usr/bin/env perl
use strict;
use warnings;
for (my $i = 0; $i <10; $i++){
print "\$i = $i 回目のループ\n";
}
@tomcha
tomcha / 48.pl
Created December 4, 2015 01:32
48
#!/usr/bin/env perl
use strict;
use warnings;
my @num;
@num = (1..1000);
my @rev_num = reverse @num;
@tomcha
tomcha / 47.pl
Created December 4, 2015 01:28
47
#!/usr/bin/env perl
use strict;
use warnings;
my @num;
@num = (1..1000);
my @rev_num = reverse @num;
@tomcha
tomcha / 46.pl
Created December 4, 2015 01:24
46
#!/usr/bin/env perl
use strict;
use warnings;
my @num;
@num = (1..1000);
for my $i (@num){
if ($i < 100){
@tomcha
tomcha / 45.pl
Created December 4, 2015 01:22
45
#!/usr/bin/env perl
use strict;
use warnings;
my @num;
@num = (1..1000);
for my $i (@num){
print "$i\n";
@tomcha
tomcha / 44.pl
Created December 4, 2015 01:13
44
#!/usr/bin/env perl
use strict;
use warnings;
my @num;
@num = (1..1000);
for my $i (@num){
print "$i\n";
@tomcha
tomcha / 43.pl
Last active December 4, 2015 01:11
43
#!/usr/bin/env perl
use strict;
use warnings;
use DDP{deparse => 1 };
my @num;
@num = (1..1000);
my @rev_num = reverse @num;
@tomcha
tomcha / 42.pl
Created December 4, 2015 01:03
42
#!/usr/bin/env perl
use strict;
use warnings;
my @num;
@num = (1..1000);
my @rev_num = reverse @num;