こばやし けんいち
- こばやし けんいち @Niratama
- Perlでサーバーサイドプログラム書いてます
Sbt.global.Base.Money *= Sbt.global.Base.Money; | |
window.setInterval(function () { Sbt.global.Base.ClickTetsuya(); }, 1); | |
for (i = 0; i < 7; i++) for (j = 0; j < 256; j++) Sbt.global.Base.ClickMachine(i); | |
for (i = 0; i < 14; i++) Sbt.global.Base.ClickOption(i) |
#!/usr/bin/env perl | |
use strict; | |
use utf8; | |
use Encode qw(encode decode); | |
use Text::Xslate; | |
my $template = <<'__HERE__'; | |
: my $xkey = '日本語'; | |
: my $ykey = dec('日本語'); |
こばやし けんいち
require 'formula' | |
class Libpafe < Formula | |
homepage 'http://homepage3.nifty.com/slokar/pasori/libpafe.html' | |
url 'http://homepage3.nifty.com/slokar/pasori/libpafe-0.0.8.tar.gz' | |
sha1 'dec47ea185dd052c3e9b28cfb3494e509f7a4316' | |
head 'git://github.com/htrb/libpafe.git' | |
depends_on 'pkg-config' => :build |
#!env perl | |
# vi:ts=4:sw=4 | |
use 5.010; | |
use strict; | |
use SVN::Dump; | |
use Data::Dumper; | |
my ($infile, $outfile) = @ARGV; | |
unless ($infile && $outfile) { | |
say "$0 infile outfile"; |
#!env perl | |
use 5.010; | |
use List::Util qw(sum); | |
my @m = @ARGV; | |
if (sum(@m[0..2]) == sum(@m[3..5])) { # 0〜2と3〜5はあんまん | |
if ($m[6] == $m[7]){ # 6と7もあんまん | |
say 8; | |
} else { # 6か7どちらかが肉まん |