yuuki

#!/bin/sh
exec 2>&1
export PERL_PATH=/opt/perl-5.14/bin/perl
exec $PERL_PATH /opt/perl-5.14/bin/growthforecast.pl --data-dir /home/growthforecast/growthforecast  --port 80 -- \
             setuidgid growthforecast

yuuki

#!/bin/sh
exec 2>&1
exec /usr/bin/setuidgid growthforecast multilog t /etc/service/growthforecast/log/main

yuuki

cmd_push() {
  parse_remote_name "$@"
  if [ -z "$REMOTE" ]; then
    REMOTE="$ORIGIN"
  fi
  name_or_current

  # sanity checks
  require_clean_working_tree
  require_branch "$BRANCH"

yuuki

perl -MConfig -e 'print $Config{archname}'

yuuki

cpan -l 2>/dev/null | cut -f1

yuuki

test for daily coding

yuuki

use 5.010;
use List::Util qw(sum);

my $digit = 1;
while (10**$digit <= 9**5*$digit) { ++$digit; };
say sum(grep { my $n = $_; $n eq sum(map { $_**5 } split(//, $n)) } 2..9**5*$digit);
# => 443839

yuuki

use 5.010;
use Math::BigInt;

my @list = map { my $b = $_; map { Math::BigInt->new($_) ** $b } 2..100 } 2..100;
say scalar do { my %s; grep { !$s{$_}++ } @list }; # uniq
# 9183

yuuki

use 5.010;
use List::Util qw(sum);

my @maxs = map { $_ ** 2 } map { 2 * $_ - 1 } 1 .. 501;
my $step = sub { my $i = shift; ($i + 1) * 2; };
say sum(map { $maxs[$_] * 4 + $step->($_) * 6 } 0 .. ($#maxs-1)) + $maxs[$#maxs];
# 669171001

yuuki

def d(n)
  t = (2..Math.sqrt(n).floor).select{|i| n % i == 0}
  ([1] + t + t.map{|i| n/i}).inject(:+)
end

amicable_num = (2...10000).select do |a|
  b = d(a)
  a == d(b) and a != b
end
puts amicable_num.inject(:+)