省メモリ版エラトステネスの篩を Scala で - Smalltalkのtは小文字です
Squeak Smalltalk の #largePrimesUpTo:do: をほぼそのまま Scala に書き換えてみました。手元の環境では残念ながら 1<<30 ですと OutOfMemoryError になるので少し減らして 1<<29 に収まる全素数（28192750個。最大は 536870909）の生成を試したところ、おおよそ Squeak4.2 CogVM の倍速といった感じでした（1.8GHz Core i7 で Squeak の 27秒に対し Scala は 14秒）。限られた Scala の知識で機械的に変換したものなので Scala をよく知っている人に手を入れてもらえれば軽く10倍くらいには高速化できるとおもいますので後はよろしくお願いします。ｗ 他の言語への移植もチャレンジしてみたいですね。 object PrimesUpTo extends App { def
普通の言語ではどうやっても真似できない変態FizzBuzzをSqueak Smalltalkで - Smalltalkのtは小文字です
あるいは、いかにしてここ数年来の懸案だった n fizz buzz 形式のメソッドコールによる FizzBuzz をいわゆる“黒魔術”（―を通り越してもはや禁じ手の類）を用いて実現したか。 オーソドックスに―ということであれば n fizz, n buzz ifEmpty: [n] が Smalltalk での FizzBuzz のベストアンサーだと思っている私ではありますが、それとは別に、考え得るもっともシンプルな式である n fizz buzz と書くだけで同様のことを実現できないものかということも定期的に巡ってくるブームのたびに模索し続けていて、なんとか n fizz buzz value という似た形まではもってこれてはいたものの、最後の余計なメソッドコールをどうにも無くすことができなくて行き詰まっていた、というのがこれまでの流れです。で、今回はその最後のコールをかなり無理矢理では
子供だと５分で解けてプログラマだと１時間かかる問題を Squeak Smalltalk で - Smalltalkのtは小文字です
ネタバレ注意。 問題となっている画像は次のもの。問題文はテキストを記載している。 ＜問題＞ This problem can be solved by pre-school children in 5-10 minutes, by programmers -in 1 hour, by people with higher education… well, check it yourself! （この問題は就学前の子供であれば５〜１０分、プログラマーであれば１時間以内で解けます。高等教育を受けた人間であれば…自分自身で試してみて！） http://ict.pken.com/2012/02/facebook_sansu/ これは Squeak Smalltalk ならではの特徴を活かせるいい問題なんじゃないかなぁーと思えたのでソルバー？（というよりはネタは割れているので単なるデコーダーか）を書
RubyやHaskellの部分適用っぽいものを引数にとるメソッド呼び出しをSqueak Smalltalkで - Smalltalkのtは小文字です
先週末の Ruby勉強会@札幌-22 にオーストラリアから参加されたアンドリュー・グリムさん の発表で知った Ruby の技。 本日の収穫 #ruby： [1,2,3].map(&1.method(:+)) => [2,3,4]。 Haskellで言う所の map (+1) [1,2,3]。 @tmaeda この発想はなかった。ｗ その場で Smalltalk でも！というリクエストはいただいたのですが、残念ながら Smalltalk のメッセージングを介したメソッドコールには、Ruby のバウンドメソッドや Haskell などの部分適用のような概念がないので再現できませんでした。 ちょっとくやしかったので、こんなふうなそれっぽく見えるものを考えてみました。 #(1 2 3) collect: #(+ 1) "=> #(2 3 4) " 仕込みは簡単。SequenceableCollec
“関数合成のススメ”の関数合成を Squeak Smalltalk で - Smalltalkのtは小文字です
関数合成のススメ 〜 オブジェクト指向プログラマへ捧げる関数型言語への導入その1 - ( ꒪⌓꒪) ゆるよろ日記 メソッドを合成して新しいメソッドを生成するのはちょっと手ごわそうなのであとまわしにして、まずは簡単な無名関数を使ったバージョンから試します。 Smalltalk では無名関数はブロックと呼ばれ、式を [ ] で括ることで定義できます。 f := [3 + 4] これを評価する際には value というメッセージを送ります。 f value "=> 7 " 引数をとるブロックの場合は、次のようにコロンに続けて仮引数（変数名）を列挙し、| で手続き本体と区切ります。 add := [:x :y | x + y] 引数をとるブロックの評価には value ではなく、引数の数だけ value: を重ねたメッセージを送ります。 add value: 3 value: 4 "=> 7 "
"the" 演算子ライクな thing メソッドを Squeak Smalltalk で - Smalltalkのtは小文字です
真・自然言語プログラミングの"the"演算子をClojureで - Homoiconic Days 「型を1つ引数にとり現在のスコープに唯一存在するその型のオブジェクトを返す演算子」である "the" ですが、あいにく Smalltalk のメッセージ式に the では馴染まないので thing というメソッドに置き換えて実装してみました。「クラス名 thing」でコールできます。 Smalltalk には thisContext という擬変数（代入できない変数）が予約語としてあって、実行時のコンテキスト（スタックフレーム）を文字通り「文脈」を表わすオブジェクトとして得て扱うことが可能なので、そこから手繰って指定された型（クラス）に属する唯一のインスタンスを特定できれば "the" 改め thing メソッドを比較的簡単に実装できます。 Behavior >> thing | env fo
不正サイコロの目の出方をシミュレートするエイリアス法（二者択一法）を Squeak Smalltalk で - Smalltalkのtは小文字です
KentのSmalltalkでの記事。何年ぶりなんだか。http://t.co/EN0kCYAE @umejava 1月19日 経由で、 Rolling and Flipping: Vose' Alias Algorithm in Smalltalk Darts, Dice, and Coins 面白そうなのでちょっと趣向を変えて Squeak Smalltalk のジェネレーターを使って書いて動きを見てみようと思います。 サイコロより目の数がひとつ余計ですが、二番目のリンクの最後にあるのと同じ７つの目がそれぞれ 1/8, 1/5, 1/10, 1/4, 1/10, 1/10, 1/8 というふうに偏った確率で出る場合を考えます。 まず、ケント・ベックも冒頭で触れているエイリアス法を使わないナイーブな実装。各目の閾値（境界）を前述確率から算出しておき、0から1未満の乱数がそのどの範囲に収ま
Re: 配列の隣接する2項にそれぞれ演算を施した配列 - Smalltalkのtは小文字です
Squeak Smalltalk には overlappingPairsCollect: という名前で標準装備されています。 もちろん等差数列を作るのにもこの関数は使えるのですが、この一般的に使える関数に使う名前としてはあまりに局所的。というわけで mapBetween としてみました。使いどころはかなり多そうです。各言語に標準装備されていないのがちょっと不思議なほど。 404 Blog Not Found:algorithm - mapBetween - 配列の隣接する2項にそれぞれ演算を施した配列 #(1 2 3 4 5) overlappingPairsCollect: #+ => #(3 5 7 9) 蛇足ですが Smalltalk ではメソッド名のコロンは飾りではなく、コロンが付く場合、それ(複数含むときはそれら)も含めてのメソッド名です。たとえば hoge: と hoge は（
「直方体の重なり」を Squeak Smalltalk で - Smalltalkのtは小文字です
http://rocketnews24.com/2011/12/28/168284/ http://www.sony.co.jp/SonyInfo/Jobs/newgrads/sus/go_for_it.html おもしろい。やってみよう。 この例題のような仕様の直方体の場合、二つに重なりがあるかは、X-Y 平面、X-Z 平面 Y-Z 平面への投影図（ふたつの矩形からなる）のどれにもちゃんと重なりがあるかどうかで判断できそうです。 Squeak Smalltalk の場合、すでに組み込みの「矩形オブジェクト」（Rectangle のインスタンス。原点座標 extent: 幅@高 で生成可能)があり、それに二つのインスタンスの重なりの有無を真偽値で返す #intersects: というメソッドもあるのでこれらを省力化のために積極的に活用します。 | rect1 rect2 rect3 | r
@snoozer05 のボウリングスコア集計 Ruby 写経版を Squeak Smalltalk に逆翻訳 - Smalltalkのtは小文字です
sumim さんのボウリング集計のコード(http://d.hatena.ne.jp/sumim/20111214/p1)を Ruby で · GitHub @snoozer05 なるほど。Ruby にない PositionableStream の動きは配列とカーソルの組み合わせで再現しましたか。すばらしいですね。 @sumim 12月15日 ということで、Squeak Smalltalk から Ruby への意訳である score1 を Squeak Smalltalk に逆翻訳。 | score1 | score1 := [:pins | | cursor framePoints | cursor := 1. framePoints := OrderedCollection new. 9 timesRepeat: [ framePoints add: (pins copyFrom: c
ボウリングスコア集計の条件分岐記述にひとひねり（あるいはバッドノウハウ）を入れる - Smalltalkのtは小文字です
TDDBC 札幌 2.3 で遊びで書いてみたボウリングスコア集計 @snoozer05 のボウリングスコア集計 Ruby 写経版を Squeak Smalltalk に逆翻訳 最後のこれは記述の簡潔さと読み下しのしやすさを兼ね備えていてなかなかよさげなのですが、条件式のネストがちょっといや〜んな感じです。 | score | score := [:pins | | restPins framePoints | restPins := pins asOrderedCollection. framePoints := (1 to: 9) collect: [:idx | restPins first = 10 ifTrue: [(restPins removeFirst: 1), (restPins first: 2)] ifFalse: [restPins first + restPins
TDDBC 札幌 2.3 で遊びで書いてみたボウリングスコア集計 - Smalltalkのtは小文字です
TDDBC 札幌 2.3 札幌名物の Smalltalk ペアとして、@t_hachinoheさんと組んで楽しく参加しました。 TDD の演習の成果物としてはちゃんとオーソドックスな実装をしたのですが、それとは別に、http://xprogramming.com/xpmag/dbcHaskellBowling でリストを切り分ける動きを Smalltalk のストリームオブジェクトの振る舞いに（少々無理矢理）置き換えてみるとこんな感じかなとというのを書いてみたので紹介します（当日はこれとほぼ同じ処理を SequenceableCollection>>#score として実装）。日本語版Squeak4.2などのワークスペースへのコピペ→全選択→alt/cmd + p で試せます。 | score | score := [:pins | | framePoints | pins := pins
話題の Big Scripting Languages チートシートの Smalltalk の空欄を埋めてみた [前半] - Smalltalkのtは小文字です
Big Scripting Languages: PHP, Perl, Python, Ruby, Smalltalk Smalltalk が普通に入っているのがすばらしいですね。せっかくなので、すこしだけ目立ち気味の空欄を GNU Smalltalk、Squeak、VisualWorks で項目を分けてからざっと調べて分かる範囲で埋めてみました。スペースの都合と比較のしやすさから、他の言語は Ruby だけ残してありますので、あしからず。GSTer、VWer は、訂正・補足をお願いします。もちろん Squeak使いからのツッコミも歓迎です。 後半：libraries and modules, objects, reflection and hooks, java interoperation, > ruby (1995) GNU Smalltalk (1990) Squeak (1996
![話題の Big Scripting Languages チートシートの Smalltalk の空欄を埋めてみた [前半] - Smalltalkのtは小文字です](https://cdn-ak-scissors.b.st-hatena.com/image/square/b6b6baa77cb5c185d50c2f4174e2c1f30a0cefed/height=288;version=1;width=512/https%3A%2F%2Fogimage.blog.st-hatena.com%2F10257846132616451576%2F10257846132624583322%2F1536434047)
Objective-C の enumerateObjectsUsingBlock: の例を Squeak Smalltalk で - Smalltalkのtは小文字です
Smalltalkってかなり昔からあるというのは知っています。 といいつつもSmalltalkのことわかってません.... ※^これがでてくるところとか... enumerateObjectsUsingBlockの練習 | プログラマメモ2 何かの参考になれば…と、同じような処理を Squeak Smalltalk に書き直してみました。あと念のため、Smalltalk ではブロックとは関係なく return の意味で ^ を使います。Objective-C のブロックに出てくる ^ とは関係ありません。 | dataClass | dataClass := Object subclass: #MyData instanceVariableNames: 'myname' classVariableNames: '' poolDictionaries: '' category: 'Categ
Smalltalk基礎文法最速マスター（Squeak版） - Smalltalkのtは小文字です
はてな的プログラミング言語人気ランキング - Life like a clown 流行りには乗っておくのが吉…と思いつつ、なかなか書き進められないので、とりあえず、クラスやメソッド定義より前のごく基礎的な部分について。思いついたときに断わりなく追記・修正することがありますので、どうぞあしからず。（さっそくですが、タイトルを他の言語のものにあわせて変更しました） ■基本的な考え方 Smalltalk では「オブジェクトに対してメッセージを送る」という考え方のみでコードを書きます。「メッセージ式」と呼ばれる式のみを用います。 ▼メッセージ式 メッセージ式の基本文法です。 receiver message ▼カスケード 式の終わりにセミコロン「;」を置くと、直前のメッセージのレシーバーに対して、続くメッセージを畳みかけるようにして送ることができます。これを「カスケード」と呼びます。 receiv
1
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く
