Hatena::Groupcadr

kozima の日記

2010-02-25

あなごる

| 23:52

二問ほど。例によって没になったコードを晒すなど。

normal distribution table

erf っていう関数があるのを見つけて,なんだこれで楽勝じゃんと思ったら整形するのが面倒っていう。

頑張って format 一個で書いたら余計長くなったりしました。

(do ((x -11))
    ((= (incf x) 310))
  (format t "~:[~[
----+~70@{-~}~]~[
~F |~]~4@* ~,4F~;~* ~[Z |~] ~:*0.0~A~]"
            (< x 0) x (mod x 10) (/ x 100) 
	    (/ (1+ (erf (* (sqrt 5d-5) x))) 2)))

きっと一週間後には読めない。

practical numbers

とりあえず embed してみたけどそんなに短くならなかったり。

(princ "1")
(dotimes (i 251)
  (format (oddp (ash #36R4IODFDR508PRMVJXRIHN2I1P612NIGVW8J3K9DFC5TJNI4PCU (- i))) "
~A" (* 2 i)))

他の人たちが随分短いので「どうやるんだよわかんねーよ」的なことを後で書こうと思っていたけど,書く前に思いつきました。DP っぽい何か。1 から n までループって短く書きにくいですね。