Latest comments for language 'ドリトル' on doukaku.org

matyr's comment on 複数行のコメントアウト

// 行コメント

『・文字列によるコメントアウト
　　→ 自由に書けるが入れ子に出来ない』。
　
「「ブロックによるコメントアウト。
　　構文エラーを許さないが、入れ子に出来る。」」。

[ ドリトル ] [ download code ] ]

matyr's comment on 隣り合う二項の差

隣り合う二項の差 (Nested Flatten)

配列：隣差＝「｜ｒ　ｘ　ｔ｜ｒ＝配列！作る。ｘ＝１。ｔ＝未定義。
　「ｘ＝ｘ＋１。ｔ＝！(ｘ)見る。未定義！＝ｔ」！の間「ｒ！(ｔ－(！(ｘ－１)見る))入れる」実行」。

ラベル！(配列！3 1 4 1 5 9 2 6 5 作る　隣差)作る。

[ ドリトル ] [ download code ] ]

matyr's comment on Hello, world!その２

Hello, world!その２ (Nested Flatten)

1
2

配列！1 2 3 3 4 5 6 7 4 8 3 9 10 作る「｜列　欄｜欄！((欄！読む)＋(列！(自分)見る))書く」
　(配列！『H』『e』『l』『o』『,』『 』『w』『r』『d』『!』作る)(フィールド！作る　160 40 大きさ)選ぶ。

[ ドリトル ] [ download code ] ]

matyr's comment on 実行時間の測定

実行時間の測定 (Nested Flatten)

こんな感じで計れますが，精度は期待できません。

profile＝「｜間　物｜(未定義＝＝間)！なら「間＝0.1」実行。(未定義＝＝物)！なら「物＝ルート」実行。
　「｜時　秒｜時！(間)間隔「秒＝秒＋間」実行。物！func。時！中断。秒」！(タイマー！作る) ０ 実行」。

func＝「「｜Ｔ｜「｜ｘ｜Ｔ！(ｘ＊２)円」！100回 繰り返す」！(タートル！作る)実行」。
ラベル！(profile！実行)作る　-300 200 位置。

[ ドリトル ] [ download code ] ]

matyr's comment on n人中m人が当選するくじ

n人中m人が当選するくじ (Nested Flatten)

円順列から切り取る方式。

どう書く４＝「｜ｎ　ｍ｜
　「｜候補　当選　番｜
　　「｜ｘ｜候補！(ｘ)入れる」！(ｎ)繰り返す。
　　「ｍ＞０」！の間「番＝番％ｎ＋１。ｍ＝ｍ－１。当選！(候補！(番)見る)入れる」実行。
　 」！(配列！作る)(配列！作る)(乱数(ｎ))実行」。

ラベル！(どう書く４！13 11 実行)作る。

[ ドリトル ] [ download code ] ]

matyr's comment on 与えられた数字のケタ数

与えられた数字のケタ数 (Nested Flatten)

number は数値のプロトタイプ。

number：桁数＝「｜ｘ｜ｘ＝abs(自分)。
　「ｘ＝＝０」！なら「０」そうでなければ
　「ｘ＞＝１」　なら「 ceil(log(abs(自分)))」
　　　そうでなければ「floor(log(abs(自分)))」実行」。

number：最大桁の位＝「｜ｋ｜ｋ＝！桁数。
　(ｋ＝＝０)！なら「０」
　　そうでなければ「10！((ｋ＞０)！なら「ｋ－１」そうでなければ「ｋ」実行)pow」実行」。

表示欄＝リスト！作る　-80 80 位置　160 160 大きさ。
配列！2469 -600 1.1 0 0.042 作る
　「表示欄！(『』！(自分)『なら』(！桁数)『と』(！最大桁の位)連結)書く」それぞれ実行。

[ ドリトル ] [ download code ] ]

matyr's comment on リストを逆順に表示

リストを逆順に表示 (Nested Flatten)

配列に長さを返すメソッドが無いらしい(!!)ので簡易実装。

配列：長さ＝「｜ｓ｜ｓ＝０。「未定義！＝(！(ｓ＋１)見る)」！の間「ｓ＝ｓ＋１」実行。ｓ」。
配列：逆順＝「｜ｒ　ｓ｜ｒ＝配列！作る。ｓ＝！長さ。
　「ｓ＞０」！の間「ｒ！(！(ｓ)見る)入れる。ｓ＝ｓ－１」実行。ｒ」。

ラベル！(配列！1 2 3 4 5 作る　逆順)作る。

[ ドリトル ] [ download code ] ]

matyr's comment on アレイのuniq

アレイのuniq (Nested Flatten)

「uniq」相当の日本語が思いつかない…。

配列：uniq＝「｜ｒ｜ｒ＝配列！作る。
　！「｜ｒ｜
　　(未定義＝＝(ｒ！「｜ｘ｜ｘ＝＝自分」(自分)選ぶ　１番 見る))！なら「ｒ！(自分)入れる」実行。
　　 」(ｒ)それぞれ実行。
　ｒ」。

ラベル！(配列！3 1 4 1 5 9 2 6 5 3 5 8 9 7 9 作る　uniq)作る。

[ ドリトル ] [ download code ] ]

matyr's comment on 変形Fizz-Buzz問題

変形Fizz-Buzz問題 (Nested Flatten)

ドリトルで。

表示欄＝リスト！作る　-40 200 位置　80 400 大きさ。
「｜回　字｜字＝『』。
　（回％５＜１）！なら「字＝『Buzz』」実行。
　（回％３＜１）！なら「字＝『Fizz』＋字」実行。
　（字＝＝『』）！なら「字＝『hoge』」実行。
　表示欄！（『』！（回）『:』（字）連結）書く」！20回 繰り返す。

[ ドリトル ] [ download code ] ]

matyr's comment on 九九の表示

九九の表示 (Nested Flatten)

欄＝リスト！作る　100 400 大きさ　-50 200 位置。
「｜左｜「｜右　積｜積＝左＊右。
　欄！(『』！(左)『 * 』(右)((積＞９)！なら「『 = 』」そうでなければ「『 =   』」実行)(積)連結)書く。
」！９回 繰り返す」！９回 繰り返す。

[ ドリトル ] [ download code ] ]

matyr's comment on ピラミッドを作る

ピラミッドを作る (Nested Flatten)

* の代わりに半径１ピクセルの円を描きます。

タートル：ピラミッド描く＝
「｜n　歩幅｜「歩幅＝＝未定義」！なら「歩幅＝20」実行。
　！ペンなし　0 200 位置。
　「｜i｜「！1 円；ペンなし　(歩幅)歩く」！(i*2-1)繰り返す　0(歩幅*-1)移動する　180 右回り」！(n)繰り返す」。
タートル！作る　19 ピラミッド描く。

[ ドリトル ] [ download code ] ]

matyr's comment on Hello, world!

Hello, world! (Nested Flatten)

オンライン版(http://dolittle.eplang.jp/pconline/applet.html)もあるので気軽に試せます。

1	ラベル！『Hello, world!』作る。

[ ドリトル ] [ download code ] ]