make_ppmマンセー5.10.x用です。インストールしたい人は下記コマンドでできると思うよ。testmake_ppmmake_ppmコマンドはPPM::Makeモジュールに入ってます。nmakeはここから取ってくるといいんじゃないかな。生Perlgolfとか。最近よく視聴してるPerl放送の生主さんとこでGolf(ショートコーディング)なるものをやってたので、その場でリスナーとして勝手に参戦してみました。お題:引用元:(・3・)ぷぅログラミング・ルール通ればなんでもおk。出力:入力された長さを1辺とする四角形で、外側は1、内側は0とする。いう変態的な事するにはやっぱりperl便利ねwこんな感じになりました(51Bytes)。1..$iさらにperl6対応にするとこんな感じに(48Bytes)。「1行目から(入力)行目まで処理を繰り返す際、Nを処理中の行数としたとき、N÷(入力)の余りが0または1(つまり「<2」)のときは1を(入力)個出力し、それ以外の場合は先頭が1、続いて0を(入力-2)個、最後に1を出力する」という事になります。(入力)が5のとき:1(行目)÷5(入力)の余り・・・12(行目)÷5(入力)の余り・・・23(行目)÷5(入力)の余り・・・34(行目)÷5(入力)の余り・・・45(行目)÷5(入力)の余り・・・0となるので、この1行目と5行目の処理をまとめた論理式になるわけですね!というわけで1(行目)÷5(入力)の余り・・・1なので「11111」を出力2(行目)÷5(入力)の余り・・・2なので「10001」を出力3(行目)÷5(入力)の余り・・・3なので「10001」を出力4(行目)÷5(入力)の余り・・・4なので「10001」を出力5(行目)÷5(入力)の余り・・・0なので「11111」を出力となるわけです。・・・良くこんな発想できたな自分wいやぁ、楽しませてもらいました。生Community【ニコニコ動画】つれづれにうたう。RSSフィードページのトップへ。