nadesiko3 3.2.36 → 3.2.40

package/src/plugin_system.js

@@ -202,6 +202,30 @@ const PluginSystem = {
     },
     return_none: true
   },
+  '連続表示': { // @引数に指定した引数を全て表示する // @れんぞく表示
+    type: 'func',
+    josi: [['と', 'を']],
+    isVariableJosi: true,
+    pure: true,
+    fn: function (...a) {
+      const sys = a.pop()
+      const v = a.join('')
+      sys.__exec('表示', [v, sys])
+    },
+    return_none: true
+  },
+  '連続無改行表示': { // @引数に指定した引数を全て表示する（改行しない) // @れんぞくむかいぎょうひょうじ
+    type: 'func',
+    josi: [['と', 'を']],
+    isVariableJosi: true,
+    pure: true,
+    fn: function (...a) {
+      const sys = a.pop()
+      const v = a.join('')
+      sys.__exec('継続表示', [v, sys])
+    },
+    return_none: true
+  },
   '表示ログ': { type: 'const', value: '' }, // @ひょうじろぐ
   '表示ログクリア': { // @表示ログを空にする // @ひょうじろぐくりあ
     type: 'func',
@@ -281,6 +305,22 @@ const PluginSystem = {
       return a % b
     }
   },
+  '偶数': { // @Aが偶数なら真を返す // @ぐうすう
+    type: 'func',
+    josi: [['が']],
+    pure: true,
+    fn: function (a) {
+      return (a % 2 == 0)
+    }
+  },
+  '奇数': { // @Aが奇数なら真を返す // @きすう
+    type: 'func',
+    josi: [['が']],
+    pure: true,
+    fn: function (a) {
+      return (a % 2 == 1)
+    }
+  },
   '二乗': { // @Aを二乗する // @にじょう
     type: 'func',
     josi: [['の', 'を']],
@@ -676,6 +716,23 @@ const PluginSystem = {
       return parseInt(v).toString(n)
     }
   },
+  '二進': { // @値Vを2進数に変換 // @にしん
+    type: 'func',
+    josi: [['を', 'の', 'から']],
+    pure: true,
+    fn: function (v) {
+      return parseInt(v).toString(2)
+    }
+  },
+  '二進表示': { // @値Vを2進数に変換して表示 // @にしんひょうじ
+    type: 'func',
+    josi: [['を', 'の', 'から']],
+    pure: true,
+    fn: function (v, sys) {
+        const s = parseInt(v).toString(2)
+        sys.__exec('表示', [s, sys])
+    }
+  },
   'RGB': { // @HTML用のカラーコードを返すRGB(R,G,B)で各値は0-255 // @RGB
     type: 'func',
     josi: [['と'], ['の'], ['で']],

package/test/common/basic_test.js

@@ -314,4 +314,15 @@ describe('basic', () => {
   it('もし文で「ならば」の前の空行でエラー #1079', () => {
     cmp('A=5;もし、A > 3　ならば「OK」と表示;', 'OK')
   })
+  it('『増やす』『減らす』文の追加 #1145', () => {
+    // 増やす
+    cmp('A=0;Aを1増やす。Aと表示;', '1')
+    cmp('A=0;Aを123だけ増やす。Aと表示;', '123')
+    // 減らす
+    cmp('A=10;Aを1減らす。Aと表示;', '9')
+    cmp('A=10;Aを5だけ減らす。Aと表示;', '5')
+    // 初期化しないで使うと0になる
+    cmp('Aを3増やす;Aと表示;', '3')
+    cmp('Aを3減らす;Aと表示;', '-3')
+  })
 })

package/test/common/dncl_test.js

@@ -58,6 +58,30 @@ describe('dncl (#1140)', () => {
     it('表示エミュレート', () => {
         cmpNako('!DNCLモード\nx←10,y←20\nxと"-"とyを表示する。', '10-20')
         cmpNako('!DNCLモード\nx←10,y←20\n"("とxと","とyと")"を表示する。', '(10,20)')
+        cmpNako('!DNCLモード\nx←10,y←20,z←30\n"("とxと","とyと","とzと")"を表示する。', '(10,20,30)')
+        cmpNako('!DNCLモード\nx←10,y←20\n「<」とxと","とyと「>」を表示する。', '<10,20>')
+        // #1079
+        cmpNako('!DNCLモード\nx←10,y←20\n「<」 と x と "," と y と 「>」 を 表示する。', '<10,20>')
+    })
+    it('乱数エミュレート #1146', () => {
+        cmpNako('!DNCLモード\nr ← 乱数 (5，10)\nもし(rが5以上)かつ(rが10以下)ならば「OK」と表示する。', 'OK')
+        cmpNako('!DNCLモード\nr ← 乱数 (1，6)\nもし(rが1以上)かつ(rが6以下)ならば「OK」と表示する。', 'OK')
+    })
+    it('二進 #1146', () => {
+        cmpNako('!DNCLモード\nA← 二進 (9)\nAを表示する。', '1001')
+        cmpNako('!DNCLモード\nA← 二進 (255)\nAを表示する。', '11111111')
+        cmpNako('!DNCLモード\n二進で表示 (255)', '11111111')
+    })
+    it('減らす・増やす #1149', () => {
+        cmpNako('!DNCLモード\nsaihu←1000。syuppi←500。saihuをsyuppi減らす。saihuを表示する。', '500')
+        cmpNako('!DNCLモード\nsaihu←1000。syuppi←500。saihuをsyuppi増やす。saihuを表示する。', '1500')
+    })
+    it('DNCLで「もし」文の否定形が動かない #1148', () =>{
+        cmpNako('!DNCLモード\nkosu←1\nもし、kosu>27でないならば\n|「OK」を表示する。\nを実行する。\n', 'OK')
+    })
+    it('DNCLで後判定のループが動かない #1147', () =>{
+        cmpNako('!DNCLモード\nA←1\n繰り返し，\nAを表示する\nAを1増やす\nを，A>3になるまで実行する\n', '1\n2\n3')
+        cmpNako('!DNCLモード\nA←1\n繰り返し，\nAを表示する\nAを1だけ増やす\nを，A>3になるまで実行する\n', '1\n2\n3')
     })
 })
 

package/test/common/lex_test.js

@@ -143,4 +143,7 @@ describe('lex_test', () => {
     cmp('もし、3=3ならば \n『OK』と表示;違えば;「NG」と表示;ここまで。', 'OK')
     cmp('もし、3=3ならば　\n『OK』と表示;違えば;「NG」と表示;ここまで。', 'OK')
   })
+  it('助詞の前後に空白があるとエラーになる問題 #1079', () => {
+    cmp('x=1;x と 2 と "3" を連続表示', '123')
+  })
 })

package/test/common/plugin_system_test.js

@@ -595,4 +595,8 @@ describe('plugin_system_test', () => {
     cmp('3の二乗を表示', '9')
     cmp('2の3のべき乗を表示', '8')
   })
+  it('『偶数』『奇数』 #1146', () => {
+    cmp('もし4が偶数ならば「OK」と表示。', 'OK')
+    cmp('もし3が奇数ならば「OK」と表示。', 'OK')
+  })
 })