{{ message }}

Instantly share code, notes, and snippets.

# tomcha tomcha

Created Apr 13, 2019
ニュートン法
View newton.pl
 #!/usr/bin/env perl use strict; use warnings; use feature 'say'; use DDP { deparse => 1 }; print "求めたい平方根を入力>>"; chomp(my \$root_num = );
Created Apr 13, 2019
クイックソートその2
View quicqsort2.pl
 #!/usr/bin/env perl use strict; use warnings; use feature 'say'; use DDP { deparse => 1 }; my @seeds; for (1..10){
Created Apr 13, 2019
クイックソート1
View quicksort.pl
 #!/usr/bin/env perl use strict; use warnings; use feature 'say'; use DDP { deparse => 1 }; my @seeds; for (1..100){
Created Apr 13, 2019

View fact_recursive.pl
 #!/usr/bin/env perl use strict; use warnings; use feature 'say'; use DDP { deparse => 1 }; chomp(my \$i = ); say get_fact(\$i);
Created Apr 13, 2019

View gcd_recursive.pl
 #!/usr/bin/env perl use strict; use warnings; use feature 'say'; use DDP { deparse => 1 }; print "整数2つを入力して下さい i,j >>"; chomp(my \$input = );
Created Mar 16, 2019
strings_search
View strings_search.pl
 #!/usr/bin/env perl use strict; use warnings; use feature 'say'; use DDP { deparse => 1 }; my \$strings = 'ssddperffgggperlasdf'; my \$target = 'perl';
Created Mar 16, 2019
binary_search2
View binary_search2.pl
 #!/usr/bin/env perl use strict; use warnings; use feature 'say'; use DDP { deparse => 1 }; my @seeds; for (1..100){
Created Mar 16, 2019
binary_search
View binary_search.pl
 #!/usr/bin/env perl use strict; use warnings; use feature 'say'; use DDP { deparse => 1 }; my @seeds; for (1..100){
Created Mar 16, 2019
selection_search
View selection_search.pl
 #!/usr/bin/env perl use strict; use warnings; use feature 'say'; use DDP { deparse => 1 }; my @seeds; for (1..100){
Created Mar 16, 2019
linear_search
View linear_search.pl
 #!/usr/bin/env perl use strict; use warnings; use feature 'say'; use DDP { deparse => 1 }; my @seeds; for (1..100){