kunst1080

# 仕様:
#  ホーム画面の領域を「field」とする。
#  fieldは[縦][横]の２次元配列。
#  fieldの各マスについて、配置できるウィジェットの高さ毎の最大横幅を持を格納した２次元配列を「fmap」とし、
#  縦幅と最大横幅ごとに配置可能なマスの数を集計したものを「wctable」とする。
#
#  ホーム画面に配置するウィジェットの属性を「widget」とし、その配列を「widgets」とする。
#
#  判定について
#    fieldのマスに対し、widgetをいくつ配置できるか判定する

kunst1080

#!/usr/bin/perl
while(defined($_ = <STDIN>)) {
    chomp $_;
    my $template = $ARGV[0];
    my @o=unpack("$template", $_);
    print join(",",@o) . "\n";
}

kunst1080

#! /usr/bin/perl
my $length = $ARGV[0];

binmode(STDIN);
while (sysread(STDIN, my $buf, $length)) {
    print $buf . "\n";
}

kunst1080

2014春アニメ 視聴予定

視聴予定のものだけ

※太字斜体は録画予約がまだのもの

日曜日(Sunday)

• 24:30 BS11 一週間フレンズ。
• 25:00 サンテレビ 彼女がフラグをおられたら

月曜日(Monday)

kunst1080

set /a n1=1,n2=1 & for /L %a in (3,1,10) do @((set /a n3=n1+n2,n1=n2,n2=n3)>nul & echo %a:!n3!)

kunst1080

for /l %i in (1,1,100) do @((set/a a=%i%3,b=%i%5)>nul & if !a!!b!==00 (echo FizzBuzz) else (if !b!==0 (echo Buzz) else if !a!==0 (echo Fizz) else (echo %i)))

kunst1080

I am the bone of my sh.
――― 体はshで出来ている

Steel is my sed, and fire is my awk.
血潮はsedで、心はawk

I have created over a thousand forks.
幾たびのforkを越えて不敗

Unknown to Error.

kunst1080

○○（あなたの好きなOSSの言語・もしくはLinuxディストロ）のおっかけをやって10余年が経過した。
当時大学3年生だったオレは△△（あなたの好きな何プロダクト）をやってた○○に出会い、
即効でファンになった。元々DevコンやOSSとは縁のない生活だったが、
それからは○○の為だけに生きてきたようなモンだ。
毎日○○のソースを読み、毎週勉強会へも行き、もちろんフォーラムにも参加しまくって
月3回必ず応援のコメントとpull requestを送った。イベントも全部行った。
カンファレンスで一緒に全国制覇したのも二度や三度じゃない。
ユーザー会やって二年目、セミナーで俺のハンドルを覚えてくれてた時には
嬉しくて本気で涙が出た。人生で最高の喜びだと有頂天になって、帰り道一人で吼えてた。
地元の役場の事務に就職した後も、それだけが楽しみで生きてきた。

kunst1080

体はshで出来ている
I am the bone of my sh.

血潮はsedで心はawk
Steel is my sed,and fire is my awk.

幾度のforkを越えて不敗
I have created over a thousand forks.

ただ一度のエラーもなく、

kunst1080

Sub QuickSort(arr, idx)
	dim lstack(512)
	dim rstack(512)
	dim sp
	sp = 1
	dim ltmp, rtmp
	dim l, r, x, swap

	'0番目をpush
	lstack(0) = 0