{"id":3919,"date":"2014-01-27T09:40:49","date_gmt":"2014-01-27T00:40:49","guid":{"rendered":"http:\/\/www.techscore.com\/blog\/?p=3919"},"modified":"2018-11-14T16:33:52","modified_gmt":"2018-11-14T07:33:52","slug":"forth%e3%82%92%e4%bd%bf%e3%81%86%e3%81%ae%e3%81%98%e3%82%83","status":"publish","type":"post","link":"https:\/\/www.techscore.com\/blog\/2014\/01\/27\/forth%e3%82%92%e4%bd%bf%e3%81%86%e3%81%ae%e3%81%98%e3%82%83\/","title":{"rendered":"Forth\u3092\u4f7f\u3046\u306e\u3058\u3083"},"content":{"rendered":"<p>\u3053\u3093\u306b\u3061\u306f\u3001\u9234\u6728\u3067\u3059\u3002<\/p>\n<p>Forth \u3068\u3044\u3046\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u3092\u3054\u5b58\u77e5\u3067\u3057\u3087\u3046\u304b\u3002<\/p>\n<p>\u30b9\u30bf\u30fc\u30a6\u30a9\u30fc\u30ba\u3067\u30e8\u30fc\u30c0\u304c\u300c\u30d5\u30a9\u30fc\u30b9\u3092\u4f7f\u3046\u306e\u3058\u3083\u300d\u3068\u8a00\u3044\u307e\u3059\u304c\u3001<br \/>\n\u30e8\u30fc\u30c0\u306e\u8a00\u3046\u300c\u30d5\u30a9\u30fc\u30b9\u300d\u306f\u300cForth\u300d\u3067\u306f\u306a\u304f\u300cForce\u300d\u3067\u3059\uff08\uff3e\uff3e\uff1b<\/p>\n<p>&nbsp;<\/p>\n<h2>Forth \u3068\u306f<\/h2>\n<p>Forth \u3068\u306f\u30b9\u30bf\u30c3\u30af\u6307\u5411\u306e\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u3067\u3059\u3002<\/p>\n<p>\u30b9\u30bf\u30c3\u30af\u6307\u5411\u306e\u30b9\u30bf\u30c3\u30af\u3068\u306f\u3001\u30c7\u30fc\u30bf\u69cb\u9020\u306e\u30b9\u30bf\u30c3\u30af\u306e\u3053\u3068\u3067\u3059\u3002<\/p>\n<p>\u3088\u304f\u3042\u308b\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u3067\u300c1 + 2\u300d\u3068\u66f8\u304f\u3068\u3053\u308d\u3092 Forth \u3067\u306f\u300c1 2 +\u300d\u3068\u8a18\u8ff0\u3057\u307e\u3059\u3002<\/p>\n<p>\u9006\u30dd\u30fc\u30e9\u30f3\u30c9\u8a18\u6cd5 (RPN: Reverse Polish Notation) \u3068\u547c\u3070\u308c\u308b\u66f8\u304d\u65b9\u3067\u3059\u306d\u3002<\/p>\n<p>Forth \u306e\u5185\u90e8\u3067\u300c1 2 +\u300d\u3092\u5b9f\u884c\u3059\u308b\u3068\u304d\u306b\u306f\u3001<\/p>\n<ol>\n<li>\u30b9\u30bf\u30c3\u30af\u306b 1 \u3092\u7a4d\u3080\u3002<\/li>\n<li>\u30b9\u30bf\u30c3\u30af\u306b 2 \u3092\u7a4d\u3080\u3002<\/li>\n<li>\u30b9\u30bf\u30c3\u30af\u304b\u3089\u5024\u3092 2 \u3064\u53d6\u308a\u51fa\u3057\u3001\u8db3\u3057\u5408\u308f\u305b\u3001\u7d50\u679c\u3092\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u3080\u3002<\/li>\n<\/ol>\n<p>\u3068\u3044\u3046\u9806\u756a\u3067\u51e6\u7406\u304c\u884c\u308f\u308c\u307e\u3059\u3002<\/p>\n<p>\u3053\u3053\u307e\u3067\u306f\u77e5\u3063\u3066\u3044\u305f\u306e\u3067\u3059\u304c\u3001\u5b9f\u969b\u306b Forth \u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u66f8\u3044\u305f\u3053\u3068\u306f\u3042\u308a\u307e\u305b\u3093\u3067\u3057\u305f\u3002<\/p>\n<p>\u3068\u3044\u3046\u3053\u3068\u3067\u3001\u3061\u3087\u3063\u3068\u606f\u629c\u304d\u304c\u3066\u3089 Forth \u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u66f8\u3044\u3066\u307f\u3088\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>&nbsp;<\/p>\n<h2>\u51e6\u7406\u7cfb\u306e\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb<\/h2>\n<p>\u30e1\u30b8\u30e3\u30fc\u306a\u51e6\u7406\u7cfb\u306f\u3042\u308b\u306e\u3067\u3057\u3087\u3046\u304b\uff1f\uff08\u3068\u3044\u3046\u3088\u308a Forth \u81ea\u4f53\u304c\u30de\u30a4\u30ca\u30fc\uff1f\uff09<\/p>\n<p>GNU Forth (gforth) \u3068\u3044\u3046\u51e6\u7406\u7cfb\u3092\u898b\u3064\u3051\u305f\u306e\u3067\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3057\u307e\u3057\u305f\u3002<\/p>\n<p>Debian \u7cfb\u3067\u3042\u308c\u3070\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u30d1\u30c3\u30b1\u30fc\u30b8\u304b\u3089\u30a4\u30f3\u30b9\u30c8\u30fc\u30eb\u3067\u304d\u307e\u3059\u3002<\/p>\n<pre class=\"lang:sh decode:true\">sudo apt-get install gforth<\/pre>\n<p>\u3055\u3063\u305d\u304f\u8d77\u52d5\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n<pre class=\"lang:sh decode:true\">gforth<\/pre>\n<p>\u30a4\u30f3\u30bf\u30d7\u30ea\u30bf\u3068\u3057\u3066\u8d77\u52d5\u3059\u308b\u306e\u3067\u3001\u3059\u3050\u306b Forth \u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u6253\u3061\u8fbc\u3080\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<p>\u307e\u305a\u306f\u30b9\u30bf\u30c3\u30af\u306b 1 \u3092\u7a4d\u307f\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">1<\/pre>\n<p>\u6b21\u306f 2 \u3092\u30fb\u30fb\u3002<\/p>\n<pre class=\"lang:default decode:true\">2<\/pre>\n<p>.s \u3067\u30b9\u30bf\u30c3\u30af\u306e\u72b6\u614b\u3092\u78ba\u8a8d\u3067\u304d\u308b\u3088\u3046\u3067\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">.s<\/pre>\n<p>\u3053\u306e\u3088\u3046\u306b\u51fa\u529b\u3055\u308c\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"lang:default decode:true\">.s &lt;2&gt; 1 2  ok<\/pre>\n<p>\u30b9\u30bf\u30c3\u30af\u306b\u306f\u5024\u304c 2 \u3064\u3042\u308a\u3001\u305d\u308c\u306f 1 \u3068 2 \u3067\u3059\u3088\u3001\u3068\u8aad\u307f\u53d6\u308c\u307e\u3059\u3002<\/p>\n<p>\u8db3\u3057\u7b97\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">+<\/pre>\n<p>\u8db3\u3057\u7b97\u3057\u305f\u7d50\u679c\u306f\u3044\u305a\u3053\u3078\uff1f\uff1f<\/p>\n<p>Forth \u3067\u306f\u8a08\u7b97\u306b\u4f7f\u3046\u5024\u3082\u8a08\u7b97\u7d50\u679c\u3082\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u307e\u308c\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">.s<\/pre>\n<p>\u78ba\u8a8d\u3059\u308b\u3068\u30011 \u3068 2 \u304c\u6d88\u3048\u3066\u30013 \u304c\u6b8b\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">.s &lt;1&gt; 3  ok<\/pre>\n<p>\u300c+\u300d\u306f\u30b9\u30bf\u30c3\u30af\u304b\u3089 2 \u3064\u306e\u5024\u3092\u53d6\u308a\u51fa\u3057\uff08\u30b9\u30bf\u30c3\u30af\u304b\u3089\u6d88\u3048\u308b\uff09\u3001\u8db3\u3057\u5408\u308f\u305b\u305f\u7d50\u679c\u3092\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u307f\u307e\u3059\u3002<\/p>\n<p>&nbsp;<\/p>\n<h2>\u30b9\u30bf\u30c3\u30af\u64cd\u4f5c<\/h2>\n<p>Forth \u306b\u306f\u30b9\u30bf\u30c3\u30af\u64cd\u4f5c\u3092\u884c\u3046\u305f\u3081\u306e\u30ef\u30fc\u30c9\u304c\u3044\u304f\u3064\u3082\u5b9a\u7fa9\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n<h3>\u30ef\u30fc\u30c9\u3068\u306f\uff1f<\/h3>\n<p>\u3053\u3053\u3067\u300c\u30ef\u30fc\u30c9\u300d\u3068\u3044\u3046\u8a00\u8449\u3092\u4f7f\u3044\u307e\u3057\u305f\u304c\u3001\u3053\u306e\u7528\u8a9e\u306b\u306f\u8981\u6ce8\u610f\u3067\u3059\u3002<\/p>\n<p>\u3068\u3044\u3046\u306e\u3082\u300c\u30ef\u30fc\u30c9\u300d\uff1d\u300c\u4ed6\u306e\u8a00\u8a9e\u3067\u306e\u95a2\u6570\u300d\u3067\u306f\u306a\u3044\u304b\u3089\u3067\u3059\u3002<\/p>\n<p>\u5c11\u3057\u8aac\u660e\u3059\u308b\u3068\u3001Forth \u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u30ef\u30fc\u30c9\u306e\u7f85\u5217\u3067\u69cb\u6210\u3055\u308c\u307e\u3059\u3002<\/p>\n<p>\u300c1\u300d\u3084\u300c2\u300d\u3082\u30ef\u30fc\u30c9\u3001\u300c+\u300d\u3082\u30ef\u30fc\u30c9\u3067\u3042\u308a\u3001\u300c1 2 +\u300d\u306f 3 \u3064\u306e\u30ef\u30fc\u30c9\u3067\u69cb\u6210\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>\u30ef\u30fc\u30c9\u306f\u30db\u30ef\u30a4\u30c8\u30b9\u30da\u30fc\u30b9\u3067\u533a\u5207\u308c\u3070\u826f\u3044\u305f\u3081\u3001\u4ee5\u4e0b\u306e\u3088\u3046\u306b 1 \u884c\u3067\u66f8\u304f\u3053\u3068\u3082\u3067\u304d\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">1 2 .s + .s<\/pre>\n<h3>\u30b9\u30bf\u30c3\u30af\u64cd\u4f5c\u7528\u30ef\u30fc\u30c9<\/h3>\n<p>\u307e\u3060\u5168\u90e8\u3067\u3069\u308c\u3060\u3051\u306e\u30ef\u30fc\u30c9\u304c\u3042\u308b\u306e\u304b\u5206\u304b\u3063\u3066\u3044\u307e\u305b\u3093\u304c\u3001\u3088\u304f\u4f7f\u3044\u305d\u3046\u306a\u30b9\u30bf\u30c3\u30af\u64cd\u4f5c\u7528\u30ef\u30fc\u30c9\u3092\u96c6\u3081\u3066\u307f\u307e\u3057\u305f\u3002<\/p>\n<ul>\n<li>. : x1 --<br \/>\n\u30b9\u30bf\u30c3\u30af\u306e\u6700\u4e0a\u4f4d\u8981\u7d20\u3092\u53d6\u308a\u51fa\u3059\u3002<\/li>\n<li>dup : x1 -- x1 x1<br \/>\n\u30b9\u30bf\u30c3\u30af\u306e 1 \u3064\u76ee\u306e\u5024\uff08\u30b9\u30bf\u30c3\u30af\u306e\u4e00\u756a\u4e0a\u306e\u5024\uff09\u3092\u8907\u88fd\u3057\u3001\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u3080\u3002<\/li>\n<li>drop : x1 --<br \/>\n\u30b9\u30bf\u30c3\u30af\u306e 1 \u3064\u76ee\u306e\u5024\u3092\u524a\u9664\u3059\u308b\u3002<\/li>\n<li>swap : x1 x2 -- x2 x1<br \/>\n\u30b9\u30bf\u30c3\u30af\u306e 1 \u3064\u76ee\u3068 2 \u3064\u76ee\u306e\u5024\u3092\u5165\u308c\u66ff\u3048\u308b\u3002<\/li>\n<li>over : x1 x2 -- x1 x2 x1<br \/>\n\u30b9\u30bf\u30c3\u30af\u306e 2 \u3064\u3081\u306e\u5024\u3092\u30b3\u30d4\u30fc\u3057\u3001\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u3080\u3002<\/li>\n<li>rot : x1 x2 x3 -- x2 x3 x1<br \/>\n\u30b9\u30bf\u30c3\u30af\u306e 3 \u3064\u76ee\u306e\u5024\u3092\u53d6\u308a\u51fa\u3057\u3001\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u3080\u3002<\/li>\n<li>nip : x1 x2 -- x2<br \/>\nswap \u3057\u3066\u304b\u3089 drop \u3059\u308b\u3053\u3068\u3068\u540c\u3058\u3002\u30b9\u30bf\u30c3\u30af\u306e 2 \u3064\u76ee\u306e\u8981\u7d20\u3092\u524a\u9664\u3059\u308b\u3002<\/li>\n<li>tuck : x1 x2 -- x2 x1 x2<br \/>\nswap \u3057\u3066\u304b\u3089 over \u3059\u308b\u3053\u3068\u3068\u540c\u3058\u3002\u30b9\u30bf\u30c3\u30af\u306e 1 \u3064\u76ee\u3068 2 \u3064\u76ee\u306e\u5024\u3092\u4ea4\u63db\u3057\u30012 \u3064\u76ee\u306e\u5024\u306e\u8907\u88fd\u3092\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u3080\u3002<\/li>\n<\/ul>\n<p>\u8a00\u8449\u3060\u3051\u3067\u306f\u66d6\u6627\u306b\u306a\u308a\u305d\u3046\u3060\u3063\u305f\u306e\u3067\u3001\u300cx1 -- x1 x1\u300d\u306e\u3088\u3046\u306b\u30b9\u30bf\u30c3\u30af\u306e\u72b6\u614b\u5909\u5316\u3082\u4f75\u8a18\u3057\u307e\u3057\u305f\u3002<\/p>\n<p>\u300c--\u300d\u306e\u5de6\u304c\u5909\u66f4\u524d\u3001\u53f3\u304c\u5909\u66f4\u5f8c\u3092\u73fe\u3057\u307e\u3059\u3002<\/p>\n<p>dup \u306e\u3068\u3053\u308d\u306b\u300cx1 -- x1 x1\u300d\u3068\u66f8\u3044\u3066\u3044\u307e\u3059\u304c\u3001\u3053\u308c\u306f\u30b9\u30bf\u30c3\u30af\u306b x1 \u304c\u3042\u308b\u72b6\u614b\u3067 dup \u3059\u308b\u3068 x1 x1 \u3068\u3044\u3046\u72b6\u614b\u306b\u306a\u308b\u3053\u3068\u3092\u610f\u5473\u3057\u307e\u3059\u3002<\/p>\n<p>. \u306f\u300cx1 --\u300d\u306a\u306e\u3067\u3001\u30b9\u30bf\u30c3\u30af\u306b x1 \u304c\u3042\u308b\u72b6\u614b\u3067 . \u3059\u308b\u3068 x1 \u306f\u7121\u304f\u306a\u308b\u3068\u3044\u3046\u3053\u3068\u3067\u3059\u3002<\/p>\n<p>\u5c11\u3057\u8a66\u3057\u3066\u307f\u307e\u3057\u3087\u3046\u3002\u30b9\u30bf\u30c3\u30af\u306b 1 2 3 \u3068\u7a4d\u3093\u3067\u304b\u3089 swap \u3057\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">1 2 3 swap<\/pre>\n<p>\u30b9\u30bf\u30c3\u30af\u306e\u72b6\u614b\u3092\u78ba\u8a8d\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">.s<\/pre>\n<p>1 2 3 \u304b\u3089 1 3 2 \u306b\u5909\u308f\u308a\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"lang:default decode:true\">.s &lt;3&gt; 1 3 2  ok<\/pre>\n<p>rot \u306f 3 \u3064\u76ee\u306e\u5024\u3092\u53d6\u308a\u51fa\u3057\u3001\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u307f\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">rot<\/pre>\n<p>\u30b9\u30bf\u30c3\u30af\u306e\u72b6\u614b\u3092\u78ba\u8a8d\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">.s<\/pre>\n<p>3 2 1 \u3068\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"lang:default decode:true\">.s &lt;3&gt; 3 2 1  ok<\/pre>\n<p>\u30b9\u30bf\u30c3\u30af\u64cd\u4f5c\u3068\u3044\u308f\u308c\u308b\u3068 push \u3068 pop \u304f\u3089\u3044\u3057\u304b\u7121\u3044\u3093\u3058\u3083\u306a\u3044\u304b\u3068\u601d\u3063\u3066\u3044\u307e\u3057\u305f\u304c\u3001\u8272\u3005\u306a\u7a2e\u985e\u304c\u3042\u308b\u3093\u3067\u3059\u306d\u3002<\/p>\n<p>&nbsp;<\/p>\n<h2>\u72ec\u81ea\u306e\u30ef\u30fc\u30c9\u3092\u5b9a\u7fa9\u3059\u308b<\/h2>\n<p>Forth \u3067\u306f\u72ec\u81ea\u306e\u30ef\u30fc\u30c9\u3092\u5b9a\u7fa9\u3059\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<p>\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u66f8\u304d\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">: \u30ef\u30fc\u30c9\u540d ... ;<\/pre>\n<p>\u4f8b\u3048\u3070\u6b21\u306e\u3088\u3046\u306b\u5b9a\u7fa9\u3057\u3066\u304a\u3051\u3070\u3001\u300c10\u300d\u306e\u4ee3\u308f\u308a\u306b\u300cx\u300d\u3068\u66f8\u304f\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">: x 10 ;<\/pre>\n<p>\u203b\u30b3\u30ed\u30f3\u3084\u30bb\u30df\u30b3\u30ed\u30f3\u306f\u30db\u30ef\u30a4\u30c8\u30b9\u30da\u30fc\u30b9\u3067\u533a\u5207\u308b\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002\uff08\u300c:x 10;\u300d\u306e\u3088\u3046\u306b\u8a70\u3081\u3066\u66f8\u304f\u3068\u30a8\u30e9\u30fc\u306b\u306a\u308a\u307e\u3059\u3002\uff09<\/p>\n<p>\u3044\u308f\u3086\u308b\u5b9a\u6570\u306e\u5b9a\u7fa9\u3060\u3051\u3067\u306f\u306a\u304f\u3001\u3044\u308f\u3086\u308b\u95a2\u6570\u306e\u5b9a\u7fa9\u3082\u884c\u3046\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<p>\u4f8b\u3068\u3057\u3066\u30b9\u30bf\u30c3\u30af\u306e 1 \u756a\u76ee\u306e\u8981\u7d20\u306b 1 \u3092\u52a0\u3048\u308b increment \u3092\u5b9a\u7fa9\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">: increment 1 + ;<\/pre>\n<p>\u3053\u308c\u306f\u30b9\u30bf\u30c3\u30af\u306b 1 \u3092\u7a4d\u3093\u3067\u304b\u3089 + \u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>+ \u306f\u30b9\u30bf\u30c3\u30af\u304b\u3089 2 \u3064\u306e\u8981\u7d20\u3092\u53d6\u308a\u51fa\u3057\u3001\u8db3\u3057\u5408\u308f\u305b\u305f\u7d50\u679c\u3092\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u3080\u305f\u3081\u3001\u3053\u308c\u3067\u610f\u56f3\u3057\u305f\u52d5\u4f5c\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>increment \u306f\u6b21\u306e\u3088\u3046\u306b\u4f7f\u3046\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">10 increment<\/pre>\n<p>.s \u3067\u78ba\u8a8d\u3059\u308b\u3068\u30b9\u30bf\u30c3\u30af\u4e0a\u306b 11 \u304c\u7a4d\u307e\u308c\u3066\u3044\u308b\u3053\u3068\u304c\u308f\u304b\u308a\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">.s &lt;1&gt; 11  ok<\/pre>\n<p>\u4ed6\u306b\u3082\u5024\u3092 2 \u4e57\u3059\u308b\u30ef\u30fc\u30c9\u3084\u30013 \u4e57\u3059\u308b\u30ef\u30fc\u30c9\u3082\u5b9a\u7fa9\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">: square dup * ;\r\n: cube dup dup * * ;<\/pre>\n<p>\u30b9\u30bf\u30c3\u30af\u3092\u64cd\u4f5c\u3057\u3066\u3044\u308b\u611f\u899a\u306f\u697d\u3057\u3044\u3067\u3059\u306d\u3002<\/p>\n<p>&nbsp;<\/p>\n<h2>\u6761\u4ef6\u5206\u5c90<\/h2>\n<p>\u3068\u3053\u308d\u3067\u30b9\u30bf\u30c3\u30af\u6307\u5411\u306e Forth \u3067\u6761\u4ef6\u5206\u5c90\u306f\u3069\u3046\u3084\u308b\u306e\u3067\u3057\u3087\u3046\u304b\u3002<\/p>\n<p>\u6761\u4ef6\u5206\u5c90\u306f\u4ee5\u4e0b\u306e\u3088\u3046\u306b\u8a18\u8ff0\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">if \u771f\u306e\u5834\u5408 then\r\nif \u771f\u306e\u5834\u5408 else \u507d\u306e\u5834\u5408 then<\/pre>\n<p>\u300cthen \u3063\u3066\u3053\u3053\u306b\u66f8\u304f\u306e\uff1f\u300d\u3068\u601d\u308f\u308c\u305f\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u304c\u3001\u3053\u3053\u306b\u66f8\u304f\u3093\u3067\u3059\u3002<\/p>\n<p>\u4ed6\u306e\u8a00\u8a9e\u3067\u306f\u300cif ... then ... else\u300d\u3068\u3044\u3046\u9806\u756a\u3067\u3059\u304c\u3001Forth \u3067\u306f\u3053\u306e\u9806\u756a\u3067\u66f8\u304d\u307e\u3059\u3002<\/p>\n<p>\u4f8b\u3068\u3057\u3066\u30b9\u30bf\u30c3\u30af\u306e 1 \u3064\u76ee\u306e\u5024\u304c\u30de\u30a4\u30ca\u30b9\u306e\u5834\u5408\u306f -777\u3001\u305d\u3046\u3067\u306a\u3051\u308c\u3070 777 \u306b\u7f6e\u304d\u63db\u3048\u308b\u30ef\u30fc\u30c9 triple-seven \u3092\u5b9a\u7fa9\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">: triple-seven 0 &lt; if -777 else 777 then ;<\/pre>\n<p>\u30d7\u30e9\u30b9\u306e\u5024\u3067\u8a66\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">123 triple-seven .s &lt;1&gt; 777  ok<\/pre>\n<p>\u30de\u30a4\u30ca\u30b9\u306e\u5024\u3067\u306f\u671f\u5f85\u901a\u308a -777 \u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n<pre class=\"lang:default decode:true\">-123 triple-seven .s &lt;1&gt; -777  ok<\/pre>\n<p>\u3082\u3046\u4e00\u5ea6\u5b9a\u7fa9\u3092\u898b\u3066\u307f\u307e\u3057\u3087\u3046\u3002<\/p>\n<pre class=\"lang:default decode:true\">: triple-seven 0 &lt; if -777 else 777 then ;<\/pre>\n<p>\u9806\u756a\u306b\u51e6\u7406\u3092\u8ffd\u3063\u3066\u3044\u304f\u3068\u3001\u6b21\u306e\u3088\u3046\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<ol>\n<li>\u30b9\u30bf\u30c3\u30af\u306b 0 \u3092\u7a4d\u3080\u3002<\/li>\n<li>&lt; \u306f\u30b9\u30bf\u30c3\u30af\u306e 1 \u3064\u76ee\u3068 2 \u3064\u76ee\u306e\u5024\u3092\u53d6\u308a\u51fa\u3057\u3001\u6bd4\u8f03\u7d50\u679c\u3092\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u3080\u3002<\/li>\n<li>if \u306f\u30b9\u30bf\u30c3\u30af\u306e 1 \u3064\u76ee\u306e\u5024\u3092\u53d6\u308a\u51fa\u3057\u3001\u771f\u306a\u3089\u3070\u30b9\u30bf\u30c3\u30af\u306b -777\u3001\u507d\u3067\u3042\u308c\u3070 777 \u3092\u7a4d\u3080\u3002<\/li>\n<\/ol>\n<p>\u666e\u901a\u306e\u8a00\u8a9e\u3067\u3042\u308c\u3070\u300cif \u6761\u4ef6 \u771f\u306e\u5834\u5408 else \u507d\u306e\u5834\u5408\u300d\u3068\u3044\u3046\u66f8\u304d\u65b9\u3092\u3057\u307e\u3059\u304c\u3001Forth \u306e\u5834\u5408\u306f\u3001<\/p>\n<ol>\n<li>\u6bd4\u8f03\u5bfe\u8c61\u306e\u5024\u3092\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u3080\u3002<\/li>\n<li>\u6bd4\u8f03\u3092\u884c\u3044\u3001\u7d50\u679c\u3092\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u3080\u3002<\/li>\n<li>\u00a0if \u3067\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u307e\u308c\u305f\u6bd4\u8f03\u7d50\u679c\u3092\u5143\u306b\u6761\u4ef6\u5206\u5c90\u3059\u308b\u3002<\/li>\n<\/ol>\n<p>\u3068\u3044\u3046\u624b\u9806\u306b\u306a\u308a\u307e\u3059\u3002<\/p>\n<p>\u6163\u308c\u308b\u307e\u3067\u306f\u300c\u6f14\u7b97\u3059\u308b\u5024\u306f\u3069\u3053\u306b\u66f8\u304f\u306e\uff1f\u300d\u300c\u8a08\u7b97\u7d50\u679c\u306f\u3069\u3053\u306b\u3042\u308b\u306e\uff1f\u300d\u3068\u8ff7\u3063\u3066\u3057\u307e\u3044\u307e\u3059\u304c\u3001\u8a08\u7b97\u306b\u5fc5\u8981\u306a\u5024\u306f\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u307f\u3001\u8a08\u7b97\u7d50\u679c\u3082\u307e\u305f\u30b9\u30bf\u30c3\u30af\u306b\u7a4d\u307e\u308c\u308b\u3001\u3068\u3044\u3046\u3053\u3068\u306b\u6163\u308c\u3066\u3057\u307e\u3048\u3070\u975e\u5e38\u306b\u660e\u78ba\u3067\u3059\u3002<\/p>\n<p>&nbsp;<\/p>\n<h2>\u53c2\u8003\u60c5\u5831<\/h2>\n<p>\u53c2\u8003\u60c5\u5831\u3067\u3059\u304c\u3001GNU Forth \u306e\u30b5\u30a4\u30c8\u3068\u65e5\u672c\u8a9e\u8a33\u306b\u304a\u4e16\u8a71\u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\n<ul>\n<li><a href=\"http:\/\/www.complang.tuwien.ac.at\/forth\/gforth\/Docs-html\/index.html\">Gforth Manual<\/a><\/li>\n<li><a href=\"http:\/\/www.h7.dion.ne.jp\/~samwyn\/forth\/gforth\/index.html\">GForth \u30de\u30cb\u30e5\u30a2\u30eb<\/a>\uff08\u4e0a\u8a18\u306e\u65e5\u672c\u8a9e\u8a33\uff09<\/li>\n<\/ul>\n<p>&nbsp;<\/p>\n<h2>\u307e\u3068\u3081<\/h2>\n<p>\u305a\u3063\u3068\u6614\u306b JVM \u304c\u30b9\u30bf\u30c3\u30af\u30d9\u30fc\u30b9\u3060\u3068\u77e5\u3063\u305f\u3068\u304d\u306b\u300c\u3044\u3064\u304b Forth \u3092\u3084\u308d\u3046\u300d\u3068\u3044\u3046\u6c17\u6301\u3061\u304c\u82bd\u751f\u3048\u307e\u3057\u305f\u3002\u305d\u308c\u304b\u3089\u305a\u3044\u3076\u3093\u7d4c\u3063\u3066\u3057\u307e\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u5c11\u3057\u524d\u306b <a href=\"http:\/\/www.atdot.net\/yarv\/yarvarch.ja.html\">YARV<\/a> \u3082\u307e\u305f\u30b9\u30bf\u30c3\u30af\u6307\u5411\u3060\u3068\u77e5\u3063\u305f\u308a\u3001\u3061\u3087\u3063\u3068\u606f\u629c\u304d\u3057\u305f\u3044\u306a\u30fc\u3068\u601d\u3063\u305f\u308a\u3067\u3001\u305d\u308c\u306a\u3089\u3070\u3068 Forth \u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u66f8\u304d\u59cb\u3081\u307e\u3057\u305f\u3002<\/p>\n<p>Forth \u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u66f8\u3044\u3066\u307f\u3066\u3001Lisp \u7cfb\u306e\u8a00\u8a9e\u306b\u521d\u3081\u3066\u89e6\u308c\u305f\u3068\u304d\u306e\u3088\u3046\u306a\u65b0\u9bae\u3055\u3092\u611f\u3058\u307e\u3057\u305f\u3002\u307e\u3060\u307e\u3060\u5206\u304b\u3089\u306a\u3044\u3053\u3068\u3060\u3089\u3051\u3067\u3059\u304c\u3001\u3082\u3063\u3068\u8a73\u3057\u304f\u77e5\u308a\u305f\u3044\u3068\u601d\u3044\u307e\u3059\u3002\u30b9\u30bf\u30c3\u30af\u6307\u5411\u7279\u6709\u306e\u30c6\u30af\u30cb\u30c3\u30af\u3082\u3042\u308b\u306e\u3067\u3057\u3087\u3046\u304b\u3002\u697d\u3057\u307f\u3067\u3059\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>Forth \u3092\u4f7f\u3046\u306e\u3058\u3083\uff01<\/p>\n<p>&nbsp;<\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u3053\u3093\u306b\u3061\u306f\u3001\u9234\u6728\u3067\u3059\u3002<\/p>\n<p>Forth \u3068\u3044\u3046\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0\u8a00\u8a9e\u3092\u3054\u5b58\u77e5\u3067\u3057\u3087\u3046\u304b\u3002<br \/><a href=\"https:\/\/www.techscore.com\/blog\/2014\/01\/27\/forth%e3%82%92%e4%bd%bf%e3%81%86%e3%81%ae%e3%81%98%e3%82%83\/\">\u7d9a\u304d\u3092\u8aad\u3080...<\/a><\/p>\n","protected":false},"author":4,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[18],"tags":[130],"_links":{"self":[{"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/posts\/3919"}],"collection":[{"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/users\/4"}],"replies":[{"embeddable":true,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/comments?post=3919"}],"version-history":[{"count":1,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/posts\/3919\/revisions"}],"predecessor-version":[{"id":4029,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/posts\/3919\/revisions\/4029"}],"wp:attachment":[{"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/media?parent=3919"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/categories?post=3919"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/tags?post=3919"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}