tomcha tomcha

## newton.pl
#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

print "求めたい平方根を入力>>";
chomp(my $root_num = <STDIN>);

## quicqsort2.pl
#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

my @seeds;
for (1..10){

## quicksort.pl
#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

my @seeds;
for (1..100){

## fact_recursive.pl
#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

chomp(my $i = <STDIN>);
say get_fact($i);

## 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 = <STDIN>);

## strings_search.pl
#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

my $strings = 'ssddperffgggperlasdf';
my $target = 'perl';

## binary_search2.pl
#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

my @seeds;
for (1..100){

## binary_search.pl
#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

my @seeds;
for (1..100){

## selection_search.pl
#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

my @seeds;
for (1..100){

## linear_search.pl
#!/usr/bin/env perl

use strict;
use warnings;
use feature 'say';

use DDP { deparse => 1 };

my @seeds;
for (1..100){
	#!/usr/bin/env perl

	use strict;
	use warnings;
	use feature 'say';

	use DDP { deparse => 1 };

	print "求めたい平方根を入力>>";
	chomp(my $root_num = <STDIN>);