どうしよもないくらいどうでもいいことをふと思いつく瞬間がある。 豚豚豚豚骨骨ラララーーメメメメメメメメンンンン2013-08-21 23:42:38 via web@alea12のせいでどうでもいいことを思いついたので、パッと書く。 (define (tonko2ramen str n) (list->string…

Progress - Project Euler 最新の進捗状況です。あと1問(No.38)が解けたら1から40まで解けたことになる。 9割くらいGaucheで解きました。1,2問くらいExcelで解きました（ぇ解答内容はおおよそ、GitHubにあげてます。 ayato0211/project-euler 3ヶ月くらい前…

えーと、軽いトラウマになっている環境の話。 というか、ちょっと書いてみたいプログラムがあって、調べて思い通りの結果が取得出来たのでメモメモ。Gaucheにおける「環境」とはモジュールのことになるらしい。モジュールはトップレベルの名前空間を規定する…

書いてないと忘れるので、少し書いておく。 少し考えれば分かるというか、数学漬けだった頃は普通にやってたことが最近どうも忘れていて困る。 (let ((x 1000) (n 4)) (if (>= x (expt 10 (- n 1))) (print (format "~d桁以上" n)) (print (format "~d桁未満…

気がついたら勢いだけで作っていました。 今回注文したのはadprintさんで、こんな感じ。 商品分類:シール(ステッカー) 商品:コート 77kg ,ラミネート有,四角形 ( 50 X 60mm ),片面4色 数量:500枚 これは定形で注文できるようにサイズ合わせたので、送料とか…

もとい、約数の和について。 Project Eulerで約数の和をそこそこ使うから書いていた。 (let1 x 12 (apply + (filter (^n (zero? (mod x n))) (iota x 1)))) 例えば、こんな感じのロジックを実装していた。 なんだけど、例えばこれを多用するような処理を書い…

昨日4時くらいまで(?)起きてたらしい(?)ので凄く眠いです。 なので、眠いって呟くコマンド作った(!?)。 #!/usr/local/bin/gosh (use net.twitter) (define *cred* (make <twitter-cred> :consumer-key "XXXXXXXXXXXXXXXX" :consumer-secret "XXXXXXXXXXXXXXXX" :access-tok</twitter-cred>…

2013-08-06東京都 東京 の天気曇時々雨最低気温: --, 最高気温: 322013-08-06 11:47:56 via gosh_de_tweetこんな感じ元ネタというか、こんなものを走り書きしたのはこの発言を受けて。 「晴れルヤ」っていう天気予報をメールでお知らせしてくれるサービスが…

初めて自分で勉強会というのを企画して、やりました。10LISP '00 10LISP '00 まとめあまり納得の行く結果にはならなかったので、悔しい思いをしたっていうのが今回。次回勉強会は方向性をもう少し、ゆっくり考えたいので後日。後で調べる。 ドット対、リスト…

素朴に書くとこんな感じ？ (let1 str "hoge" (list->string (map char-upcase (string->list str)))) シーケンス使えばこう書けるよなーって思ったけど、思ったより短くならなかった。 (use gauche.sequence) (let1 str "hoge" (list->string (map char-upca…