元ネタ → Big Sky :: Uniteプラグイン書いた。 https://gist.github.com/720064 スナップショット 選ぶと商品のページをシステム標準のブラウザで表示します。でもMOSとか今までの人生で5回も行ってない気がする…
参加は#2以来2回目。 TAO/ELISの話はとても面白かったけど、割と詳しく聞きたかった記述言語のお話が短くなってしまった S式のXML化でネストが深くなると困るっていうのはどう困るんだろな ドキュメントクラスにはXML化メソッド以外にどんなメソッドあるのか…
http://cadr.g.hatena.ne.jp/g000001/20101113/1289653556 http://cadr.g.hatena.ne.jp/lkozima/20101113/1289661114 をArcで。 (= *ym* '("2009-11" "2009-01" "2010-01" "2010-12" "2010-01" "2010-04" "2010-01" "2010-12" "2010-12" "2010-04")) (pr:sor…
http://www.kt.rim.or.jp/~kbk/zakkicho/10/zakkicho1010c.html#D20101030-5 http://www.kt.rim.or.jp/~kbk/zakkicho/10/zakkicho1010c.html#D20101031-2 より。 2の式は5の変形(2項ずつまとめてある)と分かったけど3, 4は全く知らなかったので調べてみたら…
EmacsのBackward Up Listの動きが気に入らない - 'T - cadr group M-C-b, f, @はそこそこ使ってたんだけどM-C-uを何故か知らなかった。俺は今まで何を学んできたというのか。xyzzyでbackward-up-list-or-stringやるならscan-bufferでsyntax文字検索(\s)かな…
iScheme for iPhone, in Apple's Appstore, by Jin jing Wang : lisp との報を見て速攻で購入($0.99)して試してみた。 iScheme (itunes store) ipodtouch上でチューリング完全な言語を実装できたよ! やったね!! 見切れてるので以下コード (define (S x) (lam…
404 Blog Not Found:Math - 新言語、(), [] and {} これはLispで実装しとかないとなーという事で書いてみた。Gauche用。 parens language (in scheme) こんな感じで動いてます。 gosh> (parens->lisp '((((())))(((())))(((()))))) ; (UUUU)(UUU)(UUU) = SKK…
ちょっと前にリーダーマクロに関するtweetや記事が色々出てたので(発端はここ?)、普段xyzzyの*scratch*で使っているリーダーマクロを晒してみる。 #?= (debug-printリーダー) Gauche's debug-print macro for CL Gaucheの#?=の劣化コピー。CLでも使用可。 > …
リリカル☆Lisp開発日記 » Blog Archive » #+のちょっといい話 #:aとか任意のuninternedなシンボルを使っても大丈夫そうだなーという事を考えて@Yubeshi: (list 1 #+#:|ちょっと外しときますね| 2 3)2010-07-14 13:18:13 via APIってな感じで||を使ってコメン…
高階関数クイズ - Oh, you `re no (fun _ → more) チャーチ数の冪乗計算を知っていれば。 POW := λbe.e b http://en.wikipedia.org/wiki/Lambda_calculus これ紙に書いて確かめてみるととても面白い。 という訳で twice twice twice twice add1 0 = (((twice…
Tetrlang Interpreter for xyzzy 元ネタ→わーい、テトリス言語 Tetrlang 完成したよー＼（＾o＾）／ - Homoiconic Days Tetrlangコードをバッファに貼り付けてM-x eval-tetrlang-bufferとかeval-tetrlang-regionとかすると こんな感じに結果を出力します。 …
HackerNews見てたら有名なパングラムのアレの実写映像が。 The quick brown fox ... | Typophile …か、かわいい!折角なのでPanprogram(?)をCLで書いてみた。 文字列とか適当な名前のシンボルを使っちゃうとつまらないので、CLパッケージからexportされてるシ…
HakerNews経由で Google グループ あなごる過去問にありそう？ (format t "~{~*~#@T~:*~#@**~#@{**~}~%~#@*~*~}~:*~{~#@*~#@T~#@*~**~#@{**~}~%~}" (make-list (read))) 7 * *** ***** ******* ********* *********** ************* ************* *********…
http://blog.practical-scheme.net/gauche/20100428-shorter-namesの^_a-zをxyzzyとかで使ってみようか、という事で書いてみた。 short aliases for lambda expression ひげぽんさんのshortenライブラリにある^a*とかも付け加えてあります。これで^_を使えば…
makeplex salon：あなたのスキルで飯は食えるか？ 史上最大のコーディングスキル判定 (1/2) - ITmedia エンタープライズ 泥臭いけど2時間くらいでなんとかなったような気がする。 http://gist.github.com/356548しかし七対子のテストした時 * (find-waiting …
http://gihyo.jp/dev/column/01/prog/2010/aprilfool2010-01 Route 477 - プログラミング言語ModanShogiを公開しましたプロesolang作家yhara先生のファンの1人としてこれは取り組まねばなるまい、という事でCLに移植。 http://gist.github.com/351580 パーサ…
何の役に立つのか分からないけどメモ user=> (printf "%s" "asdf") asdfnil user=> (printf "%s" ["asdf"]) ["asdf"]nil これを踏まえて Google グループ (def s"(def s%s)(printf s(pr-str s))")(printf s(pr-str s)) ダブルクォートをエスケープする為にpr…
明日本番。ここ見て来る人はいないだろうけど一応告知。 第一部 ダンス・セレブレーション (建部知弘) スプリング・マーチ (大石美香) ニュー・シネマ・パラダイス (作:エンニオ・モリコーネ 編:大島ミチル) 交響組曲 「風の谷のナウシカ」 3章 (作:久石譲 …
あなごる - kozima の日記 - cadr group anarchy golf - Normal Distribution Table 2バイト差だったけど解答見ると結構違うなあ。 自分の (format t" Z |~{ 0.0~d~^ ~} ----+~70@{-~}"'(0 1 2 3 4 5 6 7 8 9)t)(dotimes(i 310)(format t"~[ ~,,-2f |~] ~2@*…
ここ5年くらい使ってるX-Finderというファイラ(Windows用)でActiveScriptが使えるようになったので適当にRuby用ラッパーモジュールなどこしらえてみる。基本 http://dl.dropbox.com/u/215714/xfrb/xf.rb RDoc用のコメントの書き方わからん…以下利用例。 変数…
Programming Clojure原書の出版元のpragprogより The Pragmatic Bookshelf | Metaprogramming Ruby Metaprogramming Ruby: Program Like the Ruby Pros (Facets of Ruby)作者: Paolo Perrotta出版社/メーカー: Pragmatic Bookshelf発売日: 2010/01/31メディ…
してもらいました。 http://golf.shinh.org/l.rb?cljちょうどActive problemsに他のLisp族だとしんどいと思われるdecimal型数値の計算問題が出てるので遊んでみるとよいと思います。プログラミングClojure作者: Stuart Halloway,川合史朗出版社/メーカー: オ…
http://shinh.skr.jp/m/?date=20100113#p06 http://route477.net/d/?date=20100117#p01を参考にしつつ (map writeb(ccc[loop(= m(drain:readb)w(+(pos 10 m)1)v(+ m)q `((,(pos 83 m),m)))(= p pop.q)(on n `(1 -1,w,-.w)(case(min(v:++ n p.0)m.n)71(_:p 1)…
人材獲得作戦・４ 試験問題ほか: 人生を書き換える者すらいた。 3時間きっちり考えた結果 maze.arc (= m (filechars "~/gists/maze_arc/maze.txt") ; or (drain:readc) w (+ 1 (pos #\newline m)) a (n-of len.m nil) (a:pos #\S m) '(0) d 0 route) (until …
先月母方の祖母が亡くなったので今年もしめやかに。特にネタがないので先月あたりGithubに突っ込んでそのまま放置してるコードをまとめておこう。以下全部xyzzy用 external-shell設定 Gauche 0.9のWin版を標準のコンソール上で使おうとすると色々めんどいの…
以前某氏の0がいくつか分からなくなってググろうとした時にサジェストされて知った人。 わだば わだばゴッホになる棟方志功はSKKの辞書にも入ってるなぁ。 参考:棟方志功の生涯
ゲームも良く網羅されてるようなので試してみた。 東方妖々夢 ようよ 妖々夢 ごうふうし 業風神閃斬 げんせも 現世妄執 さんこんし 三魂七魄 しちはく 七魄忌諱 いちねんむ 一念無量劫 はくあいの 博愛の仏蘭西人形 きりのろ 霧の倫敦人形 まさいこ 魔彩光の…
もう半月以上経ってるけど祝Arc追加。色々書いてみて気付いた点とか適当に。 special syntax charactors (intrasymbol) 2以前はa.b.c => (a b c), a!b!c => (a 'b 'c)だったけどver 3でa.b.c => ((a b) c), a!b!c => ((a 'b) 'c)に変更。 ++.iが意図通りに展…
anarchy golf - find anagrams 今朝方投稿した90byteのコード (loop(set'w #1=(read-line))(format(apply'= 1(map'list(lambda(c)(count c w))#.#1#))"~A "w)) sortは破壊的だし、と思って避けてたらヘンテコなコードになっていた。 投稿したときは「これで…
