2005-02-01から1ヶ月間の記事一覧
「与えられたリストの連続する部分列の内、和が最大となるものを求め、その和を返せ」というプログラムを書け http://d.hatena.ne.jp/yokoyamatetsuo/20050224/p2 solve = maximum . candidates . preproc preproc = map sum . groupBy (((>= 0).) . (*)) . …
普通に str = x ++ show x where x = "str = x ++ show x where "変数xを使わずに str = (flip (++) . show . take 39) str "str = (flip (++) . show . take 39) str "右辺に変数を使わずに str = fix $ (. show . take 40) . (++) $ "str = fix $ (. show …
main=putStr$x++show(' ':x);x="main=putStr$x++show(' ':x);x="「大きくなる」の解釈はバイト数。
CPS, Continuation Monad, and Writer Monad の例。 part :: (a -> Bool) -> [a] -> [a] part p l = let f [] z = z f (x:xs) z = if p x then x : f xs z else f xs (z++[x]) in f l []をいろいろに書いてみる*1。 *1:[id:yokoyamatetsuo:20050219#p5]より
1 #!/bin/sh echo -e "Content-type: text/plain\n" env 2 #!/bin/sh decode () { awk 'BEGIN { RS = "&"; FS = "=" } {print $1 " = {" $2 "}\n"}' \ | /usr/local/bin/urldecode -p } echo -e "Content-type: text/plain\n" env echo -e "\n-- Get data --…
#!/bin/sh DATAFILE="data/bbs.txt" cat >> $DATAFILE; echo "" >> $DATAFILE cat << EOF Content-type: text/html <html><body><form method="post" action="$SCRIPT_NAME"> <textarea name="msg" rows="5" cols="80"></textarea><br/> <input type="submit" name="write" value="Write"/> </form> EOF cat $DATAFILE | se…</body></html>
大半のGPLの利用者は、勝手にGPLにしたのであって、FSFと契約してGNU softwareにしたわけじゃない。 FSFと契約すれば安全ですってのは何の反論にもなってない。 裁判すればいいというのは、無責任な意見に聞こえる。GPLが契約かただの宣言かということすら確…
今日は雪だった。ここでは、少しでも積もるのは年に数回しかない。川縁を歩いて下っていると、散歩中の犬に出会った。耳の垂れた、白っぽい毛の犬だった。尻尾を振ってうれしそうに走り回りながら、雪の中に鼻を突っ込んでいた。私はもちろん走り回らなかっ…
