meru-akimbo

package main

import (
	"fmt"
	"math/rand"
	"time"
)

type Answer struct {
	X, Y int

meru-akimbo

use 5.18.0;
use strict;
use warnings;

package Job;
use Moose;

sub payload_trigger {
    say "##### run trigger ####";
}

meru-akimbo

#!perl

use strict;
use warnings;
use utf8;
use HTTP::Request::Common;
use Path::Tiny;
use Plack::Test;
use Plack::Request;

meru-akimbo

#############################################
# Key bind-key
unbind-key ^B
#  Prefixは迷わずC-z
set-option -g prefix ^Z

unbind-key ^C
bind-key ^C new-window

unbind-key ^W

meru-akimbo

#!/usr/bin/perl
use strict;
use warnings;
use Imager;

my $dir='img/';
my @files;

opendir(DIR, $dir);
@files= grep {/\.bmp$/} readdir(DIR);

meru-akimbo

#!/usr/bin/perl

use strict;
use warnings;
use constant INF => 1000000000000000000000;
use List::Util qw/first/;

my $node = [
  {
    id          => 0,

meru-akimbo

#!/usr/bin/perl
use strict;
use warnings;

my $list = [[1],[0,2,3],[1,6],[1,4],[3,5],[4,6,7],[2,5,7],[5,6]];
my $start = 0;
my $end = 7;

&search($list,$start,$end);

meru-akimbo

kill -9 `ps auxw|grep "perl hoge.pl"|egrep -v grep|awk'{print $2}'`
nohup perl hoge.pl &

meru-akimbo

#再帰使うべきだったらしい

#!/usr/bin/perl
use strict;
use warnings;
use List::Util qw/min/;

my @list = ([1],[0,2,3],[1,6],[1,4],[3,5],[4,6,7],[2,5,7],[5,6]);
my @already_passed = (0);
my @way = (0);

meru-akimbo

use strict;
use warnings;

my $result = 0;

for my $natural_number (1..100){
   if((my $square_root = sqrt $natural_number) =~ /[\D]/ ){
      my @target_list = split // , $square_root;
      
      my $i = 0;