2021年03月29日(Mon)の独り言

2021年03月29日(Mon)の呟きは 25

 < 2021年03月28日(Sun)の独り言 | 2021年03月29日(Mon)の独り言 | 2021年03月30日(Tue)の独り言 > 

• 2021年03月29日(Mon) 05:30:47 #

  買った
  
  

  
• 2021年03月29日(Mon) 17:59:53 #

  マイナンバーカード、申請から２週間経つけど
  未だ音沙汰なし・・・
  申請がかなり殺到してて混んでいるとかかな・・・

• 2021年03月26日(Fri) 06:06:28 (UPD 2021年03月29日(Mon) 22:09:20) #

  次はこれ
  
  Dim s As String
  Dim n As Integer
  Do
  Print "Number?"
  Input s
  If s = "end" Then
  Exit Do
  End If
  n = CInt(s)
  If n < 1 Then
  Print "Invalid Input"
  Continue Do
  End If
  If n Mod 15 = 0 Then
  s = "FizzBuzz"
  ElseIf n Mod 3 = 0 Then
  s = "Fizz"
  ElseIf n Mod 5 = 0 Then
  s = "Buzz"
  Else
  s = CStr(n)
  End If
  Print s
  Loop

  • 2021年03月28日(Sun) 00:58:28 #

    (omitted)

  • 2021年03月29日(Mon) 18:00:19 #

    次は
    n = CInt(s)

    • 2021年03月29日(Mon) 21:58:11 #

      次は n < 1 の部分
      {lhs_reg} < {rhs_reg}
      なので
      {lhs_reg} - {rhs_reg} < 0
      なので
      SUBA {lhs_reg},{rhs_reg}
      SRA {lhs_reg},15
      とすれば
      負数のときは-1 (True)、それ以外は0 (False)
      になる

  • 2021年03月29日(Mon) 22:10:27 #

    次は整数の一致判定の等号演算子
    
    If n Mod 15 = 0 Then が動くようにする

    • 2021年03月29日(Mon) 22:12:49 #

      さて、さっきのn < 0は差分で求まるんだが
      一致はどうすれば求まるのか・・・

      • 2021年03月29日(Mon) 22:13:11 (UPD 2021年03月29日(Mon) 22:14:03) #

        愚直にやると等号演算子のたびにラベルを１つ消費することになるんだが・・・

        • 2021年03月29日(Mon) 22:13:50 #

          サブルーチン化すると
          大げさにはなるものの
          ラベルの消費を抑えられる・・・

          • 2021年03月29日(Mon) 22:19:01 #

            レジスタ退避とかのコードが必要になるかもだが

      • 2021年03月29日(Mon) 22:16:45 #

        if a - b = 0 -> -1 (True)
        if a - b < 0 -> 0 (False)
        if a - b > 0 -> 0 (False)
        
        フラグレジスタ判定だと、ラベルジャンプが必須になる・・・

        • 2021年03月29日(Mon) 22:24:57 #

          ジャンプなしの強引だと・・・
          
          SUBA {lhs},{rhs}
          LD {rhs},{lhs}
          XOR {rhs},=#FFFF
          LAD {rhs},1,{rhs}
          SRA {lhs},15
          SRA {rhs},15
          OR {lhs},{rhs}
          XOR {lhs},=#FFFF
          
          か？
          

          • 2021年03月29日(Mon) 22:27:16 #

            ジャンプやると
            
            SUBA {lhs},{rhs}
            JZE J1
            LAD {lhs},-1
            J1 XOR {lhs},=#FFFF
            
            シンプル

            • 2021年03月29日(Mon) 22:31:40 #

              サブルーチンだと・・・
              ; PUSH 0,GR1
              ; PUSH 0,GR2
              PUSH 0,{rhs}
              LD GR1,{lhs}
              POP GR2
              CALL C1
              ; POP GR2
              ; POP GR1
              LD {lhs},GR0
              
              
              C1 XOR GR0,GR0
              CPA GR1,GR2
              JNZ J1
              LAD GR0,-1
              J1 RET
              
              か？

              • 2021年03月29日(Mon) 22:36:06 #

                比較サブルーチンにすると
                
                ; PUSH 0,GR1
                ; PUSH 0,GR2
                PUSH 0,{rhs}
                LD GR1,{lhs}
                POP GR2
                CALL C1
                SLL GR0,15
                SRA GR0,15
                XOR GR0,=#FFFF
                ; POP GR2
                ; POP GR1
                LD {lhs},GR0
                
                
                C1 XOR GR0,GR0
                CPA GR1,GR2
                JZE J2
                JPL J1
                LAD GR0,-1
                J1 OR GR0,=1
                J2 RET
                
                か？

            • 2021年03月29日(Mon) 22:37:47 #

              公式シミュレータだと
              ラベル200個という制限があるからな・・・

          • 2021年03月29日(Mon) 22:40:19 #

            これ、もうちょっとシンプルにできないかなあ

            • 2021年03月29日(Mon) 22:45:58 #

              
              SUBA {lhs},{rhs}
              LD {rhs},{lhs}
              XOR {rhs},=#FFFF
              LAD {rhs},1,{rhs}
              OR {lhs},{rhs}
              SRA {lhs},15
              XOR {lhs},=#FFFF
              
              
              SRAが１つ要らんよな

              • 2021年03月29日(Mon) 22:51:25 #

                命令量かラベル量かのトレードオフだなあ・・・

                • 2021年03月29日(Mon) 22:52:57 #

                  ソースコードは1000行以内
                  ラベルは200個以内
                  
                  か…

                  • 2021年03月29日(Mon) 22:53:33 #

                    どっちも厳しいなあ・・・

                • 2021年03月29日(Mon) 22:58:03 (UPD 2021年03月29日(Mon) 22:59:01) #

                  今回は
                  命令3行 or ラベル1個
                  か
                  
                  3行/1000行
                  と
                  1個/200個 = 5/1000
                  では…
                  まぁ単純比較ではラベルのほうがコスト高いが
                  
                  

                  • 2021年03月29日(Mon) 23:01:37 #

                    まぁ、5行につき1個ラベルを使えるという単純計算も成り立つし
                    ジャンプラベルとしてはそう高頻度で出てくるものではないが、
                    データ保管(DS/DC)としてのラベルは…5行中5個ラベル消費になるからな・・・

                    • 2021年03月29日(Mon) 23:02:40 (UPD 2021年03月29日(Mon) 23:03:48) #

                      1000行制限だと
                      DSで適当なサイズ確保しての動的割り当てなコードを追加なんてのも厳しいだろうしなあ
                      まぁ、ラベル節約にはなっても、コンパイル自体の実装難易度がかなーり上がるんだよな、今の静的割り当てのかなーり楽なことか・・・

                      • 2021年03月29日(Mon) 23:05:04 #

                        FizzBuzzでさえ、200行クラスの量になってるもんな・・・

• 2021年03月29日(Mon) 23:29:04 (UPD 2021年03月29日(Mon) 23:29:20) #

  https://abcnews.go.com/International/engineers-start-refloat-ship-stuck-egypts-suez-canal/story?id=76743668
  
  Kaishaて、正式名称がそれだからか・・・？
  
  

  

 < 2021年03月28日(Sun)の独り言 | 2021年03月29日(Mon)の独り言 | 2021年03月30日(Tue)の独り言 >