2013-01-01から1年間の記事一覧
昔のCマガジンに、プログラミング言語Jを用いると「1から10までの整数を、ランダムに100個生成して、その標準偏差を求める」プログラムは0.5^~(+/%#)2^~(-(+/%#))1+?100$10という1行だけで計算できることが誇らしげに書いてあった記事がありました。ループも…
Rubyでどう書く？：連続した数列を範囲形式にまとめたい．いや，Rubyで書かない． – 上田ブログ なんか見覚えがあって前にも書いたような気もするのですが気にしない。 | shorten | shorten := [:array | (array inject: #() into: [:acc :xx | (acc notEmpt…
話題の 『スティーブ・ジョブズ1995 〜失われたインタビュー〜』 を iTunesストアで借りて観たのですが、インタビュワーがなんとなくいちいち煽り気味でむかつくのと、ゼロックスでの GUI との出会いのくだりがあっさりしているのが気にくわないので、同じ 1…
某所でナニした、ハードコードだけど総当たりでは恐らくこれが最もシンプルかつ最速の部類だろうというやつ。 | answers check n1 n2 n3 | answers := OrderedCollection new. check := [:S :E :N :D :M :O :R :Y | S > 0 and: [M > 0] and: [ (n1 := ((S*10…
こちらのお題でした。 https://codeiq.jp/ace/cielavenir/q431 挑戦受付開始後に Smalltalk も指定言語に追加されたので挑戦したのですが、処理系が明記されておらず困るも、おそらくは GNU Smalltalk なんじゃないかなぁとあたりを付けて書いてみました。 …
Smalltalk は指定言語から外されているし、他の言語では真似できない方法なのでネタバレの心配もないだろう…と思ったのでこちらに。 | Hello World | Hello := World := nil. "for compiler" Transcript open. thisContext tempNames do: [:each | Transcrip…
http://codeiq.hatenablog.com/entry/2013/08/26/155959 寡聞にしてこの種の“オブジェクト指向”のコツというか作法というかを知らなかったのですが、Javaなどでは一般的なのでしょうか？ちなみに以下は遊びですが、Squeak Smalltalk で And を名前に含むクラ…
http://codeiq.hatenablog.com/entry/2013/08/06/121542 | code out key | code := 'gtgtsgipgttptinggipsppaigsesgpetgstpatetisiesagaeaigttetepitiatsegssieeeeatepaaiagtpieataatppiitgiapsteitatiiatpetetetttgpetpaasipttssstpeeeggtiagtttegtiipestsa…
Ruby勉強会@札幌-26 - Ruby札幌 | Doorkeeper で Smalltalk（特に Squeak Smalltalk）の thisContext を含めた変態さん機能をご紹介した流れで、今まで書いたことのないタイプの FizzBuzz 実装を思いついたのでメモ。 Integer >> fizz ^self fizzBuzz: ((sel…
設問6の解説：アッカーマンの呪い - スピード冒険野郎の操縦席 まず素直に #ifTrue:ifFalse: を使った条件分岐で。関数なのでクラスは定義せずブロック（無名関数）を使います。 | ack | ack := nil. ack := [:m :n | m = 0 ifTrue: [ n + 1 ] ifFalse: [ n …
読者のみなさんにもgotoのある言語で試すことをオススメします。 再帰呼び出しを再帰呼び出しなしで実現 - 西尾泰和のはてなダイアリー ということだったので goto も使える Squeak Smalltalk で書いてみました(違うｗ。 | VERBOSE stack functionResult sho…
Smalltalk で「セレクタ−」というのは、０個以上の引数と組み合わせて「メッセージ」を構成する要素で、端的には通常の言語におけるメソッド名のようなものです。たとえば、arr at: 1 put: #something という Smalltalk の式があったとき、arr がレシーバー…
▼正“３の倍数”角形の場合 | m a b c | m := 9. c := 3. b := (Float pi / c) tan. a := (Float pi / c) sin. World findATranscript: nil. 0 to: m do: [:n | | d | d := c * (1 << n). Transcript cr; show: d -> ({a. b} * d). b := a * b / (a + b). a :=…
▼Reenskaug (XEROX PARC) 「MVC」/ Things - Model - View - Editor MVC / XEROX PARC 1978-79 変化しにくいインフォメーションと変化しがちなプレゼンテーションとの分離。メンタルモデルの記述としてのMVCは失敗（続きは DCI, Data - Context - Interactio…
タイトルは釣りです。 まずおおざっぱに用語の整理をさせていただくと、ここで「トレイト」は、シェルリ（Nathanael Schärli）らが2002年頃に発表したTraitsやそれ用のエンティティ（trait）を指し、「ミクスイン(Mixin, mixin)」は従来からある実装の多重継…
パラメトロン計算機: 継子立て 無限リストは使わず、破壊的に、どちらかというと物語の様子をシミュレートする気分で書いてみました。 | children removeAt removees fifteenth | children := (1 to: 30) asOrderedCollection. removeAt :=[:n | | allToRemo…
「本家の5倍速？ Pythonで実装したRuby処理系の「Topaz」が登場：Rails Hub情報局：エンジニアライフ」経由で「差が6となる素数ペアをリストアップする（割とRubyっぽい？）コード」の非効率な実装がベンチに使われていて面白そうだったので Squeak Smalltal…
