巷ではなにやら、風変わりな方法でパスカルの三角形を得るのが流行っているようなので、便乗して id:sumim:20060517#p1 で見つけた #overlappingPairsCollect: を使ってみました。 | results | results := OrderedCollection with: #(1). 10 timesRepeat: [ …

rubyco（るびこ）の日記 - Rubyで作る無限音階 経由で、PB memo - [Ruby][音楽]Shepard Tone に、触発されて。マルチメディアなら Squeak！ということでもないのですが（むしろ、マルチメディアはおろか、サウンド関係すらほとんど遊んだことがない…汗）、ま…

技術メモ帳 - 二次元配列を列方向に処理 で、まず読み込みは素直にしておいて、得られた配列が、 ary = [[1,2,3],[4,5,6],[7,8,9]]だったとして、さあ、そこからどうするか…というのを考えてみました。Ruby には transpose というのがあるので、これを使うの…

なにやら、ここ一両日、コレクションブロックメソッドがらみでアクセスをいただくようになったのは、“るびま”こと、Rubyist Magazine 最新号の Rubyist Hotlinks 【第 14 回】 角谷信太郎さん のコーナーで、なかば恒例となっている map 派、collect 派の話…

404 Blog Not Found:perl - UNIVERSAL::which 経由で、どのクラスで定義されたメソッドなのか - にぽたん研究所 を読んでいて、Smalltalk でも、あるメソッドを起動できることは分かっているのだけれど、それがどのクラスに定義されているのか分からない…と…

id:rubyco さん経由で。小飼さんの 404 Blog Not Found:Perl Monger の質問 - AUTOLOADって他でどうやるの? を受けて。shiro さんがコメント欄で示唆されているように、Smalltalk や、その影響を強く受けている Ruby などではおなじみの手法ですね。 定義（…

結城浩のSICP日記 - クイズ とそれへの shiro さんのコメントを読んでいて、Squeak や VisualWorks の Smalltalk でも似たようなことがあるな…と思いました。 後述の VisualWorks の場合とは異なり、Squeak の Smalltalk では、リテラルの書き換えも自由に行…

404 Blog Not Found:%w(Complex Number).reverse を受けて、お呼びでないとは理解しつつも、しかし、どんな振る舞いをするか確認のために。 Float pi " => 3.141592653589793 "Float e " => 2.718281828459045 "Float e raisedTo: (Float pi i) " => エラー …

Croquet で遊んだり、人前でデモをするときに知っておくとうれしい、全画面表示モードへの移行とその解除のための操作、および、関連クラスに定義された #keyStroke: メソッドのコードをつらつらと眺めていて分かったこと（３Ｄオブジェクトが受け付けるキー…

Derive Your Dreams 経由で。 http://research.sun.com/projects/plrg/fortress0866.pdf Traits are named program constructs that declare sets of methods. They were introduced in the Self programming language, and their semantic properties (and …

id:rubyco:20060419:fib のコメント欄にある mobius さんによる、Ruby の特異メソッドを用いたコードが面白かったので、例によって意訳。 | fibonacci | fibonacci := #(1 1). fibonacci assureUniClass. " インスタンス特異的クラスの作成 " fibonacci clas…

趣を変えて、歪 の PostScript による変態的な手法と大枠で同じ方針による。 Number >> f | method nn | method := thisContext method. nn := method literals size. method literalAt: nn put: ( (method literalAt: nn) == #negated ifTrue: [#yourself] …

http://oss.timedia.co.jp/index.fcgi/kahua-web/show/ossz/oneline/2006-04-18 id:sumim:20060418:p1 の続き。nobsun の Haskell による解答を意訳で。 | ff | ff := [:real | real abs caseOf: { [0] -> [real]. [1] -> [real sign * Float infinity]. [Fl…

http://oss.timedia.co.jp/index.fcgi/kahua-web/show/ossz/oneline/2006-04-17 | ff | ff := [:xx | xx * 1 i]. ^ #(0.2 -0.2 1.2 -1.2) collect: [:rr | (ff value: (ff value: rr)) real]=> #(-0.2 0.2 -1.2 1.2) 実数を返す関数だからこれじゃダメか…。…

ちまたでは、なにやらフィボナッチ数列が流行っているようなのですが、フィボナッチ数列といえば、以前、Lua について触れたときに、資料で見かけたコルーチンを使ったフィボナッチ数列が印象深かったのに、まだそれを Squeak の Smalltalk で書いていなかっ…

http://blogs.yahoo.co.jp/takutakutakutaku50/28887753.html 遅レス。 経由で。リンク先の ささださんの inject、sort_by を使った版を直訳ぎみに Squeak の Smalltalk で。 | ss | ((ss := #(○ ○ ○ △ △ ×)) inject: Dictionary new into: [:result :aa | s…

http://oss.timedia.co.jp/index.fcgi/kahua-web/show/ossz/oneline/2006-03-14http://oss.timedia.co.jp/index.fcgi/kahua-web/show/ossz/oneline/2006-03-15オーソドックスな解答例（座標をキーにした連想配列に入れておき、あとでスキャン…）はこちら。 i…

いろいろな言語の解答を拝見。 辞書（連想配列）に入れておいて、あとでスキャンする…という、シンプルかつオーソドックスな方法の存在に気づきませなんだ…。orz | series data yy yys | series := 'RCRFCRFFCCRFFRRCRRCCFRFRFF'. data := Dictionary new. y…

hirofummy さんの Haskell 版を直訳気味に。なお、Squeak の Smalltalk では、ブロックを再帰できるようにするために ClosureCompiler を必要とします。ClosureCompiler のインストール方法については、id:sumim:20060210:p1 などを参考にしてください。 | b…

BiGram で隣接する二文字を抽出する際に用いるのと同じ機構を使った版 | series dict size stream newline lines yy up down | series := 'RCRFCRFFCCRFFRRCRRCCFRFRFF'. dict := {$R -> $/. $F -> $\. $C -> $_} as: Dictionary. size := series size. stre…

Shiro さんの Scheme（Gauche）版 (2006/03/14 21:31:12 PST) を直訳気味に（意訳もしまくり）。 | graph | graph := [:input | | input2plist plist drawrow yy | input2plist := [:in | | r0 | r0 := OrderedCollection new. in inject: 1 into: [:y0 :cmd…

歪 で die さんが書いておられる PostScript（GhostScript）版を直訳気味に（一部、意訳ありｗ）。 | グラフ | グラフ := [:入力文字列 | | 列数 行 現在行 変換テーブル 空白行 行移動 現在列 記号 情報 | 列数 := 入力文字列 size. 行 := OrderedCollectio…

http://oss.timedia.co.jp/index.fcgi/kahua-web/show/ossz/oneline/2006-03-14http://oss.timedia.co.jp/index.fcgi/kahua-web/show/ossz/oneline/2006-03-15 歪 経由で。 an Array2D にマップされた平面へ１文字ずつプロットする版 | series value min max…

id:m-hiyama さん経由で、404 Blog Not Found の「水と油、returnとλ」によると…、 しかし、Perl6はこんなもんじゃありませんよ!Perl6： sub($x){ $x + 1 } # 基本形 -> $x { $x + 1 } # -> を使うと()が不要になる sub{ $^x + 1 } # placeholder を使うと..…

http://wota.jp/ac/?date=20060309#p01遅レス。 経由で。 Ruby のブロック付きメソッド呼び出しメソッドで、ブロックの代わりにシンボル（ただし、& 修飾した…）を渡すことにより同様の効果を得るためのもの。ブロック付きメソッド呼び出し時に & 修飾した引…

前のエントリーの続き。 何をいまさら…な感もなくもないですが、Ruby のソースと比べてしまうと、Smalltalk のソース（特にファイルアウトした…）は、プログラムというよりは何かの設定ファイルを見ているようで、じつに読み下しにくく見劣りがしてしまいま…

http://d.hatena.ne.jp/rubyco/20060303/coroutineコルーチンと call/cc の理解を深めるために Squeak の Smalltalk で Ruby から直訳気味に翻訳してみました。 | co | co := Coroutine generatorSymbol: (#generateIntegerStartingAt:resume:) argument: 0.…

そういえば Lightweight Language Day and Night 2005 で、どんなテーマにしたらよいかを皆さんが考えてくださったときに、 Masashi Umezawa wrote: > 今回プログラミングを担当されるのは鷲見さんですが、「応用編」に関しては > いろいろな人のアイデアを…

Little Smalltalk で VM のソースを眺めていたら、むらむら(違)と Squeak VM をビルドしたくなったのですが、初心者にはとうてい無理っぽかったので、外部プラグイン（OS X 向けには ○○.bundle とかいうやつ。仮想マシンレベルで Squeak システムの機能を拡…

http://www.namikilab.tuat.ac.jp/~sasada/diary/200602.html#d17 http://eigenclass.org/hiki.rb?yarv+ueber+algorithmical+optimizationなにやら YARV で Ruby が（限定的にせよ）最適化が効いてむっちゃ速くなる！というお話。（追記：以降、ネタにマジレ…