プチコンまとめWiki (初代/mkII)

投稿プログラム : KEMURIインタプリタ

パンくずリスト

2012年8月23日投稿 / 投稿者 : 麿 / タグ : 投稿プログラム QRコード 初代対応 非実用ツール インタプリタ / 検索用→【麿】

概要

麿です。また難解プログラミング言語のインタプリタを作ってしまいました。
詳しくは今回もWikipediaでも見てください。

仕様

動作は、このページにあるPythonで実装されたインタプリタにだいたい準拠してます。
Wikipediaでは0~255のスタックって言ってる割に、命令~を実行すると負の値になる。どういうことなの・・・。
初代プチコンは、配列Sの要素数を減らせば大丈夫そうです。

KEMURI_PLUS

「チューリング完全。理論上どんな計算でも可能です。そう、KEMURI_PLUSならね。」ということで、これは生憎KEMURI_PLUSではないのでチューリング完全ではないらしいです。
しかし、KEMURI_PLUSの実装は見たことがないです。仕様もよくわからないです。lと*の命令が増えてBrainf*ckのコードを実行できるらしい。Wikipediaだと、lだけで*は載ってないです。どうやってBrainf*ckのコードを出力するのかもわからないです。スタックの中身%8とか? 文字コード? 想像がつかないです。
せっかくだから、KEMURI_PLUSも作りたかったけど、こんな有様で実装できそうもないです。

検索用に

検索用に、バイカウントメルビルさんがやっていた【名前】をつけてみました。
需要ないですが。

QR コード

プチコンmkII 向けの QR コードです。

PRG:MAR_KEM
1/1
qr0.png

プログラムリスト

  1. ’┌──────┐
  2. ’│ＫＥＭＵＲＩ│
  3. ’└──────┘
  5. ’－－－　ＩＮＩＴ
  6. ＣＬＥＡＲ
  7. ＤＩＭ　Ｓ（２６２１４４）　’ＳＴＡＣＫ
  9. ’－－－　ＭＡＩＮ
  10. ＠ＭＡＩＮ
  11. 　ＣＯＬＯＲ　０
  12. 　ＩＮＰＵＴ　”ＣＯＤＥ”；Ｃ＄　　’ＣＯＤＥ
  13. 　ＣＯＬＯＲ　３
  14. 　ＦＯＲ　Ｉ＝０　ＴＯ　ＬＥＮ（Ｃ＄）－１
  15. 　　Ｔ＄＝ＭＩＤ＄（Ｃ＄，Ｉ，１）　’ＴＭＰ
  16. 　　ＩＦ　Ｔ＄＝＝”＾”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＸＯＲ
  17. 　　ＩＦ　Ｔ＄＝＝”～”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＮＯＴ
  18. 　　ＩＦ　Ｔ＄＝＝ＣＨＲ＄（３４）　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＤＵＰ
  19. 　　ＩＦ　Ｔ＄＝＝”’”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＲＯＴ
  20. 　　ＩＦ　Ｔ＄＝＝”｀”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＨＬＷ
  21. 　　ＩＦ　Ｔ＄＝＝”￤”　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＰＵＴ
  22. 　ＮＥＸＴ
  23. 　ＣＯＬＯＲ　４
  24. 　ＧＯＳＵＢ　＠ＰＳＴＫ
  25. ＧＯＴＯ　＠ＭＡＩＮ
  27. ’－－－　ＰＲＯＣＥＳＳＩＮＧ
  28. ＠ＰＸＯＲ
  29. ＩＦ　Ｐ＜２ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＥＲＲ：ＲＥＴＵＲＮ
  30. Ｓ（Ｐ－２）＝Ｓ（Ｐ－１）　ＸＯＲ　Ｓ（Ｐ－２）
  31. Ｓ（Ｐ－１）＝０
  32. Ｓ（Ｐ－２）＝Ｓ（Ｐ－２）％２５５
  33. Ｐ＝Ｐ－１
  34. ＲＥＴＵＲＮ
  35. ’－－－
  36. ＠ＰＮＯＴ
  37. ＩＦ　Ｐ＜１ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＥＲＲ：ＲＥＴＵＲＮ
  38. Ｓ（Ｐ－１）＝ＮＯＴ　Ｓ（Ｐ－１）
  39. Ｓ（Ｐ－２）＝Ｓ（Ｐ－２）％２５５
  40. ＲＥＴＵＲＮ
  41. ’－－－
  42. ＠ＰＤＵＰ
  43. ＩＦ　Ｐ＜１ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＥＲＲ：ＲＥＴＵＲＮ
  44. ＩＦ　Ｐ＜２６２１４３ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＥＲＲ：ＲＥＴＵＲＮ
  45. Ｓ（Ｐ）＝Ｓ（Ｐ－１）
  46. Ｐ＝Ｐ＋１
  47. ＲＥＴＵＲＮ
  48. ’－－－
  49. ＠ＰＲＯＴ
  50. ＩＦ　Ｐ＜１ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＥＲＲ：ＲＥＴＵＲＮ
  51. Ａ＝Ｓ（Ｐ－１）
  52. Ｓ（Ｐ－１）＝Ｓ（Ｐ－２）
  53. Ｓ（Ｐ－２）＝Ｓ（Ｐ－３）
  54. Ｓ（Ｐ－３）＝Ａ
  55. ＲＥＴＵＲＮ
  56. ’－－－
  57. ＠ＰＨＬＷ　’ＨＥＬＬＯ　ＷＯＲＬＤ
  58. ＩＦ　Ｐ＞２６２１３１ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＥＲＲ：ＲＥＴＵＲＮ
  59. ＲＥＳＴＯＲＥ　＠Ｄ
  60. Ａ＝Ｐ　’ＰＯＩＮＴＥＲ
  61. ＦＯＲ　Ｐ＝Ｐ　ＴＯ　Ａ＋１２
  62. 　ＲＥＡＤ　Ｓ（Ｐ）
  63. ＮＥＸＴ
  64. ＲＥＴＵＲＮ
  66. ＠Ｄ
  67. ＤＡＴＡ　３３，１００，１０８，１１４，１１１，１１９
  68. ＤＡＴＡ　３２，４４，１１１，１０８，１０８，１０１，７２
  69. ’－－－
  70. ＠ＰＰＵＴ
  71. ＩＦ　Ｐ＜１ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＥＲＲ：ＲＥＴＵＲＮ
  72. Ｏ＄＝””　’ＯＵＴＰＵＴ
  73. ＦＯＲ　Ｐ＝Ｐ　ＴＯ　１　ＳＴＥＰ　－１
  74. 　ＩＦ　Ｓ（Ｐ－１）＞＝０　ＡＮＤ　Ｓ（Ｐ－１）＜＝２５５　ＴＨＥＮ　Ｏ＄＝Ｏ＄＋ＣＨＲ＄（Ｓ（Ｐ－１））
  75. 　ＩＦ　Ｓ（Ｐ－１）＜０　ＯＲ　Ｓ（Ｐ－１）＞２５５　ＴＨＥＮ　ＧＯＳＵＢ　＠ＰＥＲＲ：ＲＥＴＵＲＮ
  76. 　Ｓ（Ｐ－１）＝０
  77. ＮＥＸＴ
  78. ？Ｏ＄
  79. ＲＥＴＵＲＮ
  80. ’－－－　ＥＲＲＯＲ
  81. ＠ＰＥＲＲ
  82. ＣＯＬＯＲ　１３：？”ＥＲＲＯＲ！”：ＣＯＬＯＲ　０
  83. ＢＥＥＰ　２：Ｉ＝２６２１４４
  84. ＲＥＴＵＲＮ
  85. ’－－－　ＰＵＴ　ＳＴＡＣＫ
  86. ＠ＰＳＴＫ
  87. ？”ＳＴＡＣＫ　”；
  88. ＦＯＲ　Ｉ＝Ｐ－１　ＴＯ　０　ＳＴＥＰ　－１
  89. 　？Ｓ（Ｉ）；
  90. 　ＩＦ　Ｉ　ＴＨＥＮ　？”，”；
  91. ＮＥＸＴ：？
  92. ＲＥＴＵＲＮ

CHECKER FLAG (ひとことコメント)

この作品に対するコメントがあれば一言どうぞ。(作品に直接関係ない質問や雑談は掲示板へ)

  • 名無しさん : 「Hello, world!」XORで組み合わせることにより、任意のbrainfuckコードが出力出来て、それを実行できるKEMURI_PLUSだからこそチューリング完全って意味だと思うよ (2012/08/25 (土) 06:50:38)
  • 麿 : ↑なるほど。でもBrainfuckコードをどうやって出力するんだろ。文字コード?あと、*命令もそれで使うとか書いてあったけど、どんな効果なんだろ。仕様が全くわからない (2012/08/25 (土) 11:09:46)

表示モード : [ スマホ・3DS対応表示 | クラシック表示 ]
PukiWiki 1.4.7 Copyright © 2001-2006 PukiWiki Developers Team. License is GPL. Based on "PukiWiki" 1.3 by yu-ji
ページの処理時間 : 0.121 秒 | このページの最終更新 : 2022/09/20 (火) 12:43:56 (565d) | ログイン
Copyright(C) 2011-2014 プチコンまとめWiki ◆1sxkymI8ji30