{"id":3952,"date":"2014-02-08T15:52:35","date_gmt":"2014-02-08T06:52:35","guid":{"rendered":"http:\/\/www.techscore.com\/blog\/?p=3952"},"modified":"2018-11-14T16:33:52","modified_gmt":"2018-11-14T07:33:52","slug":"forth%e3%82%92%e4%bd%9c%e3%82%8b%e3%81%ae%e3%81%98%e3%82%83%ef%bc%88%ef%bc%93%ef%bc%89%e6%9d%a1%e4%bb%b6%e5%88%86%e5%b2%90%e3%81%a7%e3%81%8d%e3%82%8b%e3%82%88%e3%81%86%e3%81%ab%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"https:\/\/www.techscore.com\/blog\/2014\/02\/08\/forth%e3%82%92%e4%bd%9c%e3%82%8b%e3%81%ae%e3%81%98%e3%82%83%ef%bc%88%ef%bc%93%ef%bc%89%e6%9d%a1%e4%bb%b6%e5%88%86%e5%b2%90%e3%81%a7%e3%81%8d%e3%82%8b%e3%82%88%e3%81%86%e3%81%ab%e3%81%99%e3%82%8b\/","title":{"rendered":"Forth\u3092\u4f5c\u308b\u306e\u3058\u3083\uff08\uff13\uff09\u6761\u4ef6\u5206\u5c90\u3067\u304d\u308b\u3088\u3046\u306b\u3059\u308b"},"content":{"rendered":"<p>\u3053\u3093\u306b\u3061\u306f\u3001\u9234\u6728\u3067\u3059\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u8208\u5473\u672c\u4f4d\u3067\u4f5c\u308a\u59cb\u3081\u305f Forth \u30a4\u30f3\u30bf\u30d7\u30ea\u30bf\u306e\u7d9a\u304d\u3067\u3059\u3002<\/p>\n<p>\u524d\u56de\u306f<a title=\"Forth\u3092\u4f5c\u308b\u306e\u3058\u3083\uff08\uff12\uff09\u30ef\u30fc\u30c9\u5b9a\u7fa9\u3067\u304d\u308b\u3088\u3046\u306b\u3059\u308b\" href=\"http:\/\/www.techscore.com\/blog\/2014\/01\/29\/forth%e3%82%92%e4%bd%9c%e3%82%8b%e3%81%ae%e3%81%98%e3%82%83%ef%bc%88%ef%bc%92%ef%bc%89%e3%83%af%e3%83%bc%e3%83%89%e5%ae%9a%e7%be%a9%e3%81%a7%e3%81%8d%e3%82%8b%e3%82%88%e3%81%86%e3%81%ab%e3%81%99\/\">\u30ef\u30fc\u30c9\u3092\u5b9a\u7fa9\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u305f<\/a>\u306e\u3067\u3001\u4eca\u5ea6\u306f\u6761\u4ef6\u5206\u5c90\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u3088\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n<p>&nbsp;<\/p>\n<h2>\u6761\u4ef6\u5206\u5c90\u306e\u66f8\u304d\u65b9\uff08\u304a\u3055\u3089\u3044\uff09<\/h2>\n<p>\u6761\u4ef6\u5206\u5c90\u306e\u66f8\u304d\u65b9\u3067\u3059\u304c\u3001<\/p>\n<pre class=\"lang:default decode:true\">if \u771f\u306e\u5834\u5408 then<\/pre>\n<p>\u307e\u305f\u306f\u3001<\/p>\n<pre class=\"lang:default decode:true\">if \u771f\u306e\u5834\u5408 else \u507d\u306e\u5834\u5408 then<\/pre>\n<p>\u3068\u66f8\u304f\u306e\u3067\u3057\u305f\u3002<\/p>\n<p>\u307e\u305f\u3001\u6761\u4ef6\u5206\u5c90\u306f\u30ef\u30fc\u30c9\u306e\u5b9a\u7fa9\u5185\uff08\u300c:\u300d\u304b\u3089\u300c;\u300d\u307e\u3067\u306e\u9593\uff09\u3067\u3057\u304b\u66f8\u3051\u306a\u3044\u3001\u3068\u3044\u3046\u3053\u3068\u3082\u30dd\u30a4\u30f3\u30c8\u3067\u3059\u3002<\/p>\n<p>\u4f8b\u3048\u3070\uff08\u30b9\u30bf\u30c3\u30af\u306e\u4e00\u756a\u4e0a\u306b\u3042\u308b\uff09\u5024\u304c\u8ca0\u6570\u306e\u5834\u5408\u306f 0 \u306b\u3059\u308b\u3001\u3068\u3044\u3046\u30ef\u30fc\u30c9\u306f\u6b21\u306e\u3088\u3046\u306b\u5b9a\u7fa9\u3067\u304d\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">: f dup 0 &lt; if drop 0 then ;<\/pre>\n<p>if \uff5e then \u3092\u30cd\u30b9\u30c8\u3059\u308b\u3053\u3068\u3082\u3067\u304d\u308b\u306e\u3067\u3001\u5024\u306e\u7b26\u53f7\u3092\u6c42\u3081\u308b\u30ef\u30fc\u30c9\uff08\u8ca0\u6570\u306a\u3089 -1\u3001\u6b63\u6570\u306a\u3089 1\u30010 \u306a\u3089 0 \u3068\u3059\u308b\u30ef\u30fc\u30c9\uff09\u306f\u6b21\u306e\u3088\u3046\u306b\u5b9a\u7fa9\u3067\u304d\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">: sign dup 0 &lt; if -1 else dup 0 &gt; if 1 else 0 then then ;<\/pre>\n<p>&nbsp;<\/p>\n<h2>\u524d\u56de\u66f8\u3044\u305f\u30b3\u30fc\u30c9<\/h2>\n<p>\u524d\u56de\u66f8\u3044\u305f\u30b3\u30fc\u30c9\u3092\u518d\u63b2\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"lang:ruby decode:true\">class MyForth\r\n\r\n  def initialize\r\n    @stack = []\r\n\r\n    # \u30ef\u30fc\u30c9\u5b9a\u7fa9\u5916\u3067\u4f7f\u7528\u53ef\u80fd\u306a\u30ef\u30fc\u30c9.\r\n    @words_in_default = {\r\n      '.s'   =&gt; lambda { p @stack },\r\n      '+'    =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs + rhs) },\r\n      '-'    =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs - rhs) },\r\n      '*'    =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs * rhs) },\r\n      '\/'    =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs \/ rhs) },\r\n      '.'    =&gt; lambda { @stack.pop },\r\n      'dup'  =&gt; lambda { @stack.push(@stack.last) },\r\n      'drop' =&gt; lambda { @stack.pop },\r\n      'swap' =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(rhs, lhs) },\r\n      'over' =&gt; lambda { @stack.push(@stack[-2]) },\r\n      'rot'  =&gt; lambda { @stack.push(@stack.delete_at(-3)) },\r\n      'nip'  =&gt; lambda { %w(swap drop).each{|word| eval_word(word)} },\r\n      'tuck' =&gt; lambda { %w(swap over).each{|word| eval_word(word)} },\r\n      ':'    =&gt; method(:begin_word_definition),\r\n    }\r\n\r\n    # \u30ef\u30fc\u30c9\u5b9a\u7fa9\u5185\u3067\u4f7f\u7528\u53ef\u80fd\u306a\u30ef\u30fc\u30c9.\r\n    @words_in_definition = {\r\n      ';'    =&gt; method(:end_word_definition),\r\n    }\r\n\r\n    # eval_word(word) \u30e1\u30bd\u30c3\u30c9\u304c\u5185\u90e8\u3067\u547c\u3073\u51fa\u3059\u30e1\u30bd\u30c3\u30c9.\r\n    @eval_word = method(:eval_word_in_default)\r\n  end\r\n\r\n  # \u30ef\u30fc\u30c9\u3092\u8a55\u4fa1\u3059\u308b.\r\n  def eval_word(word)\r\n    @eval_word.call(word)\r\n  end\r\n\r\n  private\r\n\r\n  # \u30ef\u30fc\u30c9\u3092\u8a55\u4fa1\u3059\u308b (\u30ef\u30fc\u30c9\u5b9a\u7fa9\u5916\u306b\u3044\u308b\u5834\u5408).\r\n  def eval_word_in_default(word)\r\n    if word =~ \/^-?\\d+$\/\r\n      @stack.push(word.to_i)\r\n    elsif @words_in_default[word]\r\n      @words_in_default[word].call\r\n    else\r\n      puts \"ERROR: Unsupported word: #{word}\"\r\n    end\r\n  end\r\n\r\n  # \u30ef\u30fc\u30c9\u3092\u8a55\u4fa1\u3059\u308b (\u30ef\u30fc\u30c9\u5b9a\u7fa9\u5185\u306b\u3044\u308b\u5834\u5408).\r\n  def eval_word_in_definition(word)\r\n    if @words_in_definition[word]\r\n      @words_in_definition[word].call\r\n    else\r\n      @stack.push(word)\r\n    end\r\n  end\r\n\r\n  # \u30ef\u30fc\u30c9\u5b9a\u7fa9\u5185\u306b\u5165\u3063\u305f\u3068\u304d\u306e\u51e6\u7406.\r\n  def begin_word_definition\r\n    @stack.push(':')\r\n    @eval_word = method(:eval_word_in_definition)\r\n  end\r\n\r\n  # \u30ef\u30fc\u30c9\u5b9a\u7fa9\u304c\u7d42\u308f\u3063\u305f\u3068\u304d\u306e\u51e6\u7406.\r\n  def end_word_definition\r\n    # \u30b9\u30bf\u30c3\u30af\u4e0a\u306e\u30ef\u30fc\u30c9\u5b9a\u7fa9\u3092\u5206\u89e3\u3059\u308b.\r\n    # Ex. [..., ':', 'square', 'dup', '*'] \u3092 name='square', definitions=['dup', '*'] \u306b\u5206\u89e3\u3059\u308b.\r\n    name, *definitions = @stack.slice!(@stack.rindex(':') .. -1).drop(1)\r\n\r\n    @words_in_default[name] = lambda { definitions.each{|word| eval_word_in_default(word)} }\r\n\r\n    @eval_word = method(:eval_word_in_default)\r\n  end\r\n\r\nend<\/pre>\n<p>\u524d\u56de\u306f\u5358\u7d14\u306a\u8a08\u7b97\u3057\u304b\u3067\u304d\u306a\u3044\u72b6\u614b\u304b\u3089\u30ef\u30fc\u30c9\u5b9a\u7fa9\u304c\u3067\u304d\u308b\u3088\u3046\u306b\u6539\u826f\u3057\u307e\u3057\u305f\u3002<\/p>\n<p>\u5b9f\u88c5\u9762\u3067\u306f\u3001\u30ef\u30fc\u30c9\u3092\u8a55\u4fa1\u3059\u308b\u30e1\u30bd\u30c3\u30c9 eval_word(word) \u5185\u90e8\u3067\u3001\u30ef\u30fc\u30c9\u5b9a\u7fa9\u5185\u306b\u3044\u308b\u6642\u306f eval_word_in_definition(word) \u3092\u547c\u3076\u3001\u30ef\u30fc\u30c9\u5b9a\u7fa9\u306e\u5916\u5074\u306b\u3044\u308b\u3068\u304d\u306f eval_word_in_default(word) \u3092\u547c\u3076\u3088\u3046\u306b\u5909\u66f4\u3057\u307e\u3057\u305f\uff08\u3069\u3061\u3089\u3092\u547c\u3073\u51fa\u3059\u304b\u306f @eval_word \u306b Method \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u3092\u4ee3\u5165\u3057\u3066\u304a\u304d\u307e\u3057\u305f\uff09\u3002<\/p>\n<p>&nbsp;<\/p>\n<h2>\u4eca\u56de\u306e\u4fee\u6b63\u65b9\u91dd<\/h2>\n<p>\u4eca\u56de\u306f\u6761\u4ef6\u5206\u5c90\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u307e\u3059\u3002<\/p>\n<p>\u6761\u4ef6\u5206\u5c90\u306f\u30ef\u30fc\u30c9\u5b9a\u7fa9\u5185\uff08\u300c:\u300d\u304b\u3089\u300c;\u300d\u307e\u3067\u306e\u9593\uff09\u3067\u3057\u304b\u66f8\u3051\u306a\u3044\u305f\u3081\u3001eval_word_in_definition(word) \u30e1\u30bd\u30c3\u30c9\u3067\u3046\u307e\u3044\u3053\u3068\u5bfe\u5fdc\u3057\u305f\u3044\u3068\u3053\u308d\u3067\u3059\u3002<\/p>\n<p>\u3068\u3044\u3046\u3053\u3068\u3067\u4fee\u6b63\u7248\u306e\u30b3\u30fc\u30c9\u3067\u3059\u3002<\/p>\n<pre class=\"lang:ruby decode:true\">class MyForth\r\n\r\n  def initialize\r\n    @stack = []\r\n\r\n    # \u30ef\u30fc\u30c9\u5b9a\u7fa9\u5916\u3067\u4f7f\u7528\u53ef\u80fd\u306a\u30ef\u30fc\u30c9.\r\n    @words_in_default = {\r\n      '.s'   =&gt; lambda { p @stack },\r\n      '+'    =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs + rhs) },\r\n      '-'    =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs - rhs) },\r\n      '*'    =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs * rhs) },\r\n      '\/'    =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs \/ rhs) },\r\n      '.'    =&gt; lambda { @stack.pop },\r\n      '='    =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs == rhs) },\r\n      '&lt;&gt;'   =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs == rhs) },\r\n      '&lt;'    =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs &lt; rhs) },\r\n      '&lt;='   =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs &lt;= rhs) },\r\n      '&gt;'    =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs &gt; rhs) },\r\n      '&gt;='   =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(lhs &gt;= rhs) },\r\n      'dup'  =&gt; lambda { @stack.push(@stack.last) },\r\n      'drop' =&gt; lambda { @stack.pop },\r\n      'swap' =&gt; lambda { lhs, rhs = @stack.pop(2); @stack.push(rhs, lhs) },\r\n      'over' =&gt; lambda { @stack.push(@stack[-2]) },\r\n      'rot'  =&gt; lambda { @stack.push(@stack.delete_at(-3)) },\r\n      'nip'  =&gt; lambda { %w(swap drop).each{|word| eval_word(word)} },\r\n      'tuck' =&gt; lambda { %w(swap over).each{|word| eval_word(word)} },\r\n      ':'    =&gt; method(:begin_word_definition),\r\n    }\r\n\r\n    # \u30ef\u30fc\u30c9\u5b9a\u7fa9\u5185\u3067\u4f7f\u7528\u53ef\u80fd\u306a\u30ef\u30fc\u30c9.\r\n    @words_in_definition = {\r\n      ';'    =&gt; method(:end_word_definition),\r\n\r\n      # (1) \u8ffd\u52a0.\r\n      'if'   =&gt; method(:begin_if_definition),\r\n      'then' =&gt; method(:end_if_definition),\r\n    }\r\n\r\n    # eval_word(word) \u30e1\u30bd\u30c3\u30c9\u304c\u5185\u90e8\u3067\u547c\u3073\u51fa\u3059\u30e1\u30bd\u30c3\u30c9.\r\n    # (2) if-then \u306f\u30cd\u30b9\u30c8\u3059\u308b\u5834\u5408\u304c\u3042\u308b\u305f\u3081\u914d\u5217\u306b\u5909\u66f4 (\u30b9\u30bf\u30c3\u30af\u3068\u3057\u3066\u4f7f\u3046).\r\n    @eval_word = [method(:eval_word_in_default)]\r\n  end\r\n\r\n  def eval_word(word)\r\n    # (2) \u5909\u66f4.\r\n    @eval_word.last.call(word)\r\n  end\r\n\r\n  private\r\n\r\n  def eval_word_in_default(word)\r\n    if word =~ \/^-?\\d+$\/\r\n      @stack.push(word.to_i)\r\n    elsif @words_in_default[word]\r\n      @words_in_default[word].call\r\n    else\r\n      puts \"ERROR: Unsupported word: #{word}\"\r\n    end\r\n  end\r\n\r\n  def eval_word_in_definition(word)\r\n    if @words_in_definition[word]\r\n      @words_in_definition[word].call\r\n    else\r\n      @stack.push(word)\r\n    end\r\n  end\r\n\r\n  def begin_word_definition\r\n    @stack.push(':')\r\n\r\n    # (2) \u5909\u66f4.\r\n    @eval_word.push(method(:eval_word_in_definition))\r\n  end\r\n\r\n  def end_word_definition\r\n    # \u30b9\u30bf\u30c3\u30af\u4e0a\u306e\u30ef\u30fc\u30c9\u5b9a\u7fa9\u3092\u5206\u89e3\u3059\u308b.\r\n    # Ex. [..., ':', 'square', 'dup', '*'] \u3092 name='square', definitions=['dup', '*'] \u306b\u5206\u89e3\u3059\u308b.\r\n    name, *definitions = @stack.slice!(@stack.rindex(':') .. -1).drop(1)\r\n\r\n    @words_in_default[name] = lambda { definitions.each{|word| eval_word_in_default(word)} }\r\n\r\n    # (2) \u5909\u66f4.\r\n    @eval_word.pop\r\n  end\r\n\r\n  # (3) \u8ffd\u52a0.\r\n  def begin_if_definition\r\n    @stack.push('if')\r\n    @eval_word.push(method(:eval_word_in_definition))\r\n  end\r\n\r\n  # (3) \u8ffd\u52a0.\r\n  def end_if_definition\r\n    # \u30b9\u30bf\u30c3\u30af\u4e0a\u306e\u30ef\u30fc\u30c9\u5b9a\u7fa9\u3092\u5206\u89e3\u3059\u308b.\r\n    # Ex. [..., 'if', T1, T2, ..., 'else', F1, F2, ..., 'then'] \u3092 true_case=[T1, T2, ...], false_case=[F1, F2, ...] \u306b\u5206\u89e3\u3059\u308b.\r\n    definitions = @stack.slice!(@stack.rindex('if') .. -1).drop(1)\r\n    true_case = definitions.take_while{|word| word != 'else'}\r\n    false_case = definitions.drop_while{|word| word != 'else'}.drop_while{|word| word == 'else'}\r\n\r\n    # \u81ea\u8eab\u3092\u30ad\u30fc\u3068\u3057\u3066\u30ef\u30fc\u30c9\u306b\u8ffd\u52a0\u3059\u308b.\r\n    word = lambda{ (@stack.pop ? true_case : false_case).each{|word| eval_word_in_default(word)} }\r\n    @stack.push(word)\r\n    @words_in_default[word] = word\r\n\r\n    @eval_word.pop\r\n  end\r\n\r\nend<\/pre>\n<p>\u30b3\u30e1\u30f3\u30c8\u4e2d\u306e (1) \u3092\u898b\u3066\u304f\u3060\u3055\u3044\u3002\u6761\u4ef6\u5206\u5c90\u306f if \u3067\u59cb\u307e\u308a then \u3067\u7d42\u308f\u308b\u306e\u3067\u3001@words_in_definition \u306b if \u3068 then \u3092\u8ffd\u52a0\u3057\u307e\u3057\u305f\u3002else \u306f\u8ffd\u52a0\u3057\u3066\u3044\u307e\u305b\u3093\u304c\u3001\u305d\u308c\u306f then \u3092\u898b\u3064\u3051\u305f\u6bb5\u968e\u3067 if \u304b\u3089 then \u306e\u4e2d\u3092 Proc \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u5909\u63db\u3059\u308b\u305f\u3081\u3001@words_in_definition \u306b\u8ffd\u52a0\u3057\u3066\u7279\u5225\u306b\u51e6\u7406\u3059\u308b\u5fc5\u8981\u306f\u7121\u3044\u304b\u3089\u3067\u3059\u3002<\/p>\n<p>\u6b21\u306b (2) \u306e\u90e8\u5206\u3067\u3059\u304c\u3001@eval_word \u3092\u914d\u5217\u306b\u5909\u66f4\u3057\u307e\u3057\u305f\u3002\u3068\u3044\u3046\u306e\u3082\u3001if \uff5e else \uff5e then \u306f\u30cd\u30b9\u30c8\u3059\u308b\u53ef\u80fd\u6027\u304c\u3042\u308b\u305f\u3081\u3001\u5358\u7d14\u306b\u300cthen \u304c\u6765\u305f\u3089 @eval_word \u306b method(:eval_word_in_default) \u3092\u4ee3\u5165\u300d\u3057\u3066\u3057\u307e\u3046\u3068\u6b63\u3057\u304f\u52d5\u304b\u306a\u3044\u305f\u3081\u3067\u3059\u3002\u547c\u3073\u51fa\u3059\u5074\u3082\u300c@eval_word.call(word)\u300d\u304b\u3089\u300c@eval_word.last.call(word)\u300d\u306b\u5909\u66f4\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>(3) \u3067\u306f if \uff5e then \u306e\u90e8\u5206\u3092\u51e6\u7406\u3057\u3066\u3044\u307e\u3059\u3002begin_if_definition \u30e1\u30bd\u30c3\u30c9\u3067\u306f @stack \u306b 'if' \u3092\u7a4d\u3093\u3067\u304b\u3089 @eval_word \u306b method(:eval_word_in_definition) \u3092\u8ffd\u52a0\u3057\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>end_if_definition \u30e1\u30bd\u30c3\u30c9\u3067\u306f\u3001@stack \u304b\u3089 'if' \u306e\u5b9a\u7fa9\u3092 definitions \u306b\u53d6\u308a\u51fa\u3057\u3001\u6761\u4ef6\u304c\u771f\u306e\u5834\u5408\uff08true_case\uff09\u3068\u507d\u306e\u5834\u5408\uff08false_case\uff09\u306b\u5206\u5272\u3057\u3066\u3044\u307e\u3059\u3002\u3042\u3068\u306f Proc \u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u5909\u63db\u3057\u3066\u304b\u3089 @words_in_default \u306b\u8ffd\u52a0\u3059\u308b\u3060\u3051\u3067\u3059\u3002<\/p>\n<p>&nbsp;<\/p>\n<h2>\u52d5\u304b\u3057\u3066\u307f\u308b<\/h2>\n<p>\u305d\u308c\u3067\u306f\u52d5\u304b\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n<pre class=\"lang:ruby decode:true\">forth = MyForth.new\r\n\r\nwhile line = gets\r\n  line.split(\/\\s\/).each do |word|\r\n    forth.eval_word(word)\r\n  end\r\nend<\/pre>\n<p>\u6700\u521d\u306b\u51fa\u3066\u304d\u305f\u3001\u5024\u306e\u7b26\u53f7\u3092\u6c42\u3081\u308b\u30ef\u30fc\u30c9 sign \u3092\u5b9a\u7fa9\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n<pre class=\"lang:default decode:true\">: sign dup 0 &lt; if -1 else dup 0 &gt; if 1 else 0 then then ;<\/pre>\n<p>\u9069\u5f53\u306a\u5024\u3067\u8a66\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n<p>\u30d7\u30e9\u30b9\u306e\u5024\u3060\u3068 1 \u306b\u306a\u308b\u3002<\/p>\n<pre class=\"lang:default decode:true\">123 sign .s\r\n[123, 1]<\/pre>\n<p>0 \u3060\u3068 0 \u306b\u306a\u308b\u3002<\/p>\n<pre class=\"lang:default decode:true\">0 sign .s\r\n[0, 0]<\/pre>\n<p>\u30de\u30a4\u30ca\u30b9\u306e\u5024\u3060\u3068 -1 \u306b\u306a\u308b\u3002<\/p>\n<pre class=\"lang:default decode:true\">-123 sign .s\r\n[-123, -1]<\/pre>\n<p>\u304d\u3061\u3093\u3068\u52d5\u304d\u307e\u3057\u305f\u3002<\/p>\n<p>&nbsp;<\/p>\n<p>\u6b21\u56de\u306f\u30eb\u30fc\u30d7\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u3088\u3046\u3068\u601d\u3044\u307e\u3059\u3002<\/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>&nbsp;<\/p>\n<p>\u8208\u5473\u672c\u4f4d\u3067\u4f5c\u308a\u59cb\u3081\u305f Forth \u30a4\u30f3\u30bf\u30d7\u30ea\u30bf\u306e\u7d9a\u304d\u3067\u3059\u3002<\/p>\n<p>\u524d\u56de\u306f\u30ef\u30fc\u30c9\u3092\u5b9a\u7fa9\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u305f\u306e\u3067\u3001\u4eca\u5ea6\u306f\u6761\u4ef6\u5206\u5c90\u3092\u30b5\u30dd\u30fc\u30c8\u3057\u3088\u3046\u3068\u601d\u3044\u307e\u3059\u3002<br \/><a href=\"https:\/\/www.techscore.com\/blog\/2014\/02\/08\/forth%e3%82%92%e4%bd%9c%e3%82%8b%e3%81%ae%e3%81%98%e3%82%83%ef%bc%88%ef%bc%93%ef%bc%89%e6%9d%a1%e4%bb%b6%e5%88%86%e5%b2%90%e3%81%a7%e3%81%8d%e3%82%8b%e3%82%88%e3%81%86%e3%81%ab%e3%81%99%e3%82%8b\/\">\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":[133,18,84],"tags":[130],"_links":{"self":[{"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/posts\/3952"}],"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=3952"}],"version-history":[{"count":15,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/posts\/3952\/revisions"}],"predecessor-version":[{"id":4020,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/posts\/3952\/revisions\/4020"}],"wp:attachment":[{"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/media?parent=3952"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/categories?post=3952"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.techscore.com\/blog\/wp-json\/wp\/v2\/tags?post=3952"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}