tomcha

#!/usr/bin/env ruby

print `clear`
STDOUT.flush
sleep(3)
strings = ["Wake up, Neo...","The Matrix has you..."," Follow the white rabbit.","Knock, knock, Neo"]
strings = ["お魚くわえたどら猫","追っかけて","はだしでかけてく","陽気なサザエさん","みんなが笑ってる","お日さまも笑ってる","ルルルルルル","明日はまた仕事"] if ARGV[0] == "--sazaesan"
strings.each do |say_string|
    say_string.each_char do |s|
        print s

tomcha

# coding: utf-8

class KaraokeMachine
  attr_accessor :melody
  def initialize(melody)
    @melody = melody
  end

  def transpose(amount)
    amount %= 12

tomcha

#!/usr/bin/env ruby
# encoding: utf-8
#値渡し
array_a = [0,1,2]
array_b = array_a.dup
array_b[1] = 'a'
p array_a


#参照渡し

tomcha

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

#値渡し
my @array_a = (0, 1, 2);
my @array_b = @array_a;

tomcha

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

#foreach (glob ('*')) {
#  my $dest = readlink $_;
#  print "$_ -> $dest\n" if defined $dest;
#}

tomcha

#!/usr/bin/env perl

use strict;
use warnings;
use utf8;

binmode STDIN,":encoding(UTF8)";
binmode STDOUT,":utf8";
binmode STDERR,":utf8";

tomcha

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

print "1つ目の数字を入力して下さい >>";
my $i = <STDIN>;
chomp $i;

tomcha

#!/usr/bin/perl

use strict;
use warnings;
use utf8;

sub pickle{
  my $filepath = shift;
  my $vegetable = shift;
  chomp($filepath);

tomcha

#!/usr/bin/env perl

use strict;
use warnings;

use Data::Dumper;

use lib "./lib";
use nukaduke;

tomcha

#!/usr/bin/env ruby
# encoding: utf-8

def check_prime(num,array)
  i = 0
  sq_number = Math.sqrt(num).ceil.to_i
  array.size.times do  
    if num % array[i] == 0
      return false 
    else