From: j8takagi Date: Sun, 28 Oct 2012 10:07:21 +0000 (+0900) Subject: FizzBuzzのロジックを見直し、各言語版に反映 X-Git-Url: https://j8takagi.net/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9512a8c8cb11ec985f9802307a4bd227917814ec;p=fizzbuzz.git FizzBuzzのロジックを見直し、各言語版に反映 --- diff --git a/c/fizzbuzz b/c/fizzbuzz new file mode 100755 index 0000000..3f12845 Binary files /dev/null and b/c/fizzbuzz differ diff --git a/c/fizzbuzz.c b/c/fizzbuzz.c index f54ea80..87d7802 100644 --- a/c/fizzbuzz.c +++ b/c/fizzbuzz.c @@ -4,21 +4,22 @@ void puts_fizzbuzz(int n) { int fizz, buzz; - if ((fizz = (n % 3 == 0))) { - printf("Fizz"); + fizz = (n % 3 == 0); + buzz = (n % 5 == 0); + if(fizz && buzz) { + puts("FizzBuzz"); + } else if(fizz) { + puts("Fizz"); + } else if(buzz) { + puts("Buzz"); + } else { + printf("%d\n", n); } - if ((buzz = (n % 5 == 0))) { - printf("Buzz"); - } - if (!fizz && !buzz) { - printf("%d", n); - } - printf("\n"); } int main() { - static int max = 100, min = 1; + const int max = 100, min = 1; int i; for(i = min; i <= max; i++) { diff --git a/casl/casl2lib/abs.casl b/casl/casl2lib/abs.casl new file mode 100644 index 0000000..be0b922 --- /dev/null +++ b/casl/casl2lib/abs.casl @@ -0,0 +1,17 @@ +;;; GR1を符号付き整数とみなし、絶対値に変換 +;;; 入力 GR1:-32768から32767の整数 +;;; 出力 GR1:入力された整数の絶対値 +;;; OF:入力されたGR1が-32768の場合、1 +;;; SF:入力されたGR1が負数(-32767〜-1)の場合、1 +ABS START + AND GR1,GR1 + JPL FIN + JZE FIN + XOR GR1,ALLON + ADDA GR1,ONE + JOV FIN + CPL GR1,ALLON +FIN RET +ONE DC 1 +ALLON DC #FFFF + END diff --git a/casl/casl2lib/divl.casl b/casl/casl2lib/divl.casl new file mode 100644 index 0000000..3591366 --- /dev/null +++ b/casl/casl2lib/divl.casl @@ -0,0 +1,47 @@ +;;; 0〜65535の範囲にある正数の割算（筆算方式）を行う +;;; 入力 GR1:被除数 GR2:除数 +;;; 出力 GR0:商 GR3:剰余 +;;; (GR2 = 0)の場合、GR0 GR3とも0になり、オーバーフロー +DIVL START + PUSH 0,GR1 + PUSH 0,GR2 + PUSH 0,GR4 + XOR GR0,GR0 ; GR0:商 初期化 + XOR GR3,GR3 ; GR3:剰余 初期化 + AND GR2,GR2 ; (GR2 = 0)の場合、DIVZEROへジャンプ + JZE DIVZERO ; ↓ + AND GR1,GR1 ; (GR1 = 0)の場合、FINへジャンプ + JZE FIN ; ↓ + ST GR2,Y ; YにGR2の初期値を保存 + LAD GR4,1 ; GR4:対象ビットのインデックス 初期化 +SL CPL GR2,GR1 ; ループ先頭。(GR2 > GR1)の場合、LOOPへループ脱出 + JPL LOOP ; ↓ + SLL GR4,1 ; GR4を1回左シフト + ST GR2,TMP ; GR2の値をTMPに退避 + SLL GR2,1 ; GR2を1回左シフト + JOV YOV ; オーバーフローの場合は、YOVへジャンプ + JUMP SL ; ループ終端 +YOV LD GR2,TMP ; GR2の値をTMPから復元 + SRL GR4,1 ; GR4を1回右シフト + JUMP LPIN ; LPINへジャンプ +LOOP SRL GR4,1 ; ループ先頭。GR4を1回右シフト + JZE SETMOD ; (GR4 = 0)の場合、SETMODへループ脱出 + SRL GR2,1 ; GR2を1回右シフト + CPL GR1,Y ; (GR1 < Y)の場合、SETMODへループ脱出 + JMI SETMOD ; ↓ + CPL GR1,GR2 ; (GR1 < GR2)の場合、ループ先頭へジャンプ + JMI LOOP ; ↓ +LPIN SUBL GR1,GR2 ; GR1 <- GR1 - GR2 + ADDL GR0,GR4 ; GR0 <- GR0 + GR4 + JUMP LOOP ; ループ終端 +DIVZERO LAD GR3,#8000 ; 強制的にオーバーフローを発生させ、GR3 <- 0 + SLL GR3,1 ; ↓ + JUMP FIN ; FIN へジャンプ +SETMOD LD GR3,GR1 ; GR3 <- GR1。剰余の設定 +FIN POP GR4 + POP GR2 + POP GR1 + RET +Y DS 1 +TMP DS 1 + END diff --git a/casl/casl2lib/outa.casl b/casl/casl2lib/outa.casl new file mode 100644 index 0000000..6f8f84d --- /dev/null +++ b/casl/casl2lib/outa.casl @@ -0,0 +1,44 @@ +;;; GR1に格納された値を、10進数の整数値（-32768〜32767）として表示 +OUTA START + RPUSH + LAD GR2,10 ; GR2に10進数の「10」を格納。 + LAD GR0,0 ; GR0 <- 0 + LAD GR4,0 ; 負数フラグ。GR1が負数の場合、GR4は1 + LAD GR5,0 ; 整数値の長さ + AND GR1,GR1 ; GR1をテスト + JZE ZPRT ; GR1が0の場合、ZPRTにジャンプ + JPL STI ; GR1が正数の場合、STIにジャンプ + LAD GR4,1 ; GR1が負数の場合、GR4をオン + CALL ABS ; GR1を正数に変換 +STI CPL GR1,GR2 ; ループ先頭。(GR1 < GR2)の場合は、ループ脱出 + JMI STLST ; ↓ + CALL DIVL ; GR1とGR2の、商をGR0、剰余をGR3に格納 + LD GR1,GR3 ; GR1にGR3をコピー + LD GR1,NCHAR,GR1 ; GR1を文字に変換 + ST GR1,STR,GR5 ; (STR + GR5) <- GR1 + LAD GR5,1,GR5 ; GR5 <- GR5 + 1 + LD GR1,GR0 ; GR0をGR1にコピー + JUMP STI ; ループ終端 +STLST LD GR1,NCHAR,GR1 ; GR1を文字に変換 + ST GR1,STR,GR5 ; (STR + GR5) <- GR1 + LAD GR5,1,GR5 ; GR5 <- GR5 + 1 + AND GR4,GR4 ; 正数の場合 + JZE PRT ; ↓ + LD GR1,='-' ; 負数の場合、「-」をSTR領域に格納 + ST GR1,STR,GR5 ; (STR + GR5) <- GR1 + LAD GR5,1,GR5 ; GR5 <- GR5 + 1 + JUMP PRT ; PRTにジャンプ +ZPRT LD GR1,NCHAR ; 「0」をSTR領域に格納 + ST GR1,STR,GR5 ; (STR + GR5) <- GR1 + LAD GR5,1,GR5 ; GR5 <- GR5 + 1 +PRT ST GR5,LEN ; LEN <- GR5 + LD GR2,LEN ; GR2にLENの値を格納 + LAD GR1,STR ; GR1に文字列のアドレスを格納 + CALL REV ; 文字列を逆順に並べ替え + OUT STR,LEN ; 文字列を出力 + RPOP + RET +STR DS 17 +LEN DS 1 +NCHAR DC '0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ' + END diff --git a/casl/casl2lib/rev.casl b/casl/casl2lib/rev.casl new file mode 100644 index 0000000..397c5c4 --- /dev/null +++ b/casl/casl2lib/rev.casl @@ -0,0 +1,27 @@ +;;; メモリー上にある指定されたアドレス、長さの文字列を逆順に並べ替える +;;; 例: 12345 -> 54321、54321- -> -12345 +;;; 入力 GR1:文字列のアドレス GR2:文字列の長さ +;;; 出力 （同上） +REV START + RPUSH + LAD GR3,0 ; GR3の初期化 +PU CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出 + JZE NEXT ; ↓ + LD GR4,GR1 ; GR4 <- GR1 + ADDL GR4,GR3 ; GR4 <- GR4 + GR3 + LD GR5,0,GR4 ; GR5 <- GR4アドレスの値 + PUSH 0,GR5 ; GR5をプッシュ + LAD GR3,1,GR3 ; GR3 <- GR3 + 1 + JUMP PU ; ループ終端 +NEXT LAD GR3,0 ; GR3の初期化 +PO CPL GR3,GR2 ; ループ先頭。(GR3 = GR2)の場合、ループ脱出 + JZE FIN ; ↓ + POP GR5 ; GR5にポップ + LD GR4,GR1 ; GR4にGR1の値をコピー + ADDL GR4,GR3 ; GR4 <- GR4 + GR3 + ST GR5,0,GR4 ; GR4のアドレス <- GR5の値 + LAD GR3,1,GR3 ; GR3 <- GR3 + 1 + JUMP PO ; ループ終端 +FIN RPOP + RET + END diff --git a/casl/fizzbuzz.casl b/casl/fizzbuzz.casl index 261cb5d..6c23dd3 100644 --- a/casl/fizzbuzz.casl +++ b/casl/fizzbuzz.casl @@ -18,30 +18,41 @@ MAX DC 100 ;; それ以外の数: 数値 FIZBUZ START RPUSH - XOR GR4,GR4 ; GR4: 文字列の長さおよびフラグ -CHKFIZ LAD GR2,3 ; GR2に3を代入 - CALL DIVL ; GR3 <- GR1 % GR2:3 + XOR GR4,GR4 ; GR4: 文字列「Fizz」の長さおよびフラグ + XOR GR5,GR5 ; GR5: 文字列「Buzz」の長さおよびフラグ + XOR GR6,GR6 ; GR6: 文字列「FizzBuzz」のフラグ +GETFIZ LD GR2,FIZNUM ; GR2にFIZNUM=3を代入 + CALL DIVL ; GR3 <- GR1 % 3(= GR2) LD GR3,GR3 ; GR3のフラグ値を取得 - JNZ CHKBUZ ; GR3が0でない場合、3の倍数ではないので、CHKBUZへジャンプ -SETFIZ LAD GR4,4 ; GR4に文字列「Fizz」の長さ4を代入 -CHKBUZ LAD GR2,5 ; GR2に5を代入 - CALL DIVL ; GR3 <- GR1 % GR2:5 + JNZ GETBUZ ; GR3が0でない場合、FIZNUMの倍数ではないので、GETBUZへジャンプ + LD GR4,FIZLEN ; GR4に文字列「Fizz」の長さFIZLEN=4を代入 +GETBUZ LD GR2,BUZNUM ; GR2にBUZNUM=5を代入 + CALL DIVL ; GR3 <- GR1 % 5(= GR2) LD GR3,GR3 ; GR3のフラグ値を取得 - JZE SETBUZ ; GR3が0の場合、5の倍数なので、SETBUZへジャンプ - LD GR4,GR4 ; GR4のフラグ値を取得 - JZE PUTNUM ; GR4が0の場合、3の倍数でも5の倍数でもないので、PUTNUMへジャンプ - JUMP SETLEN ; SETLENへジャンプ（3の倍数で5の倍数ではない） -SETBUZ LD GR4,GR4 ; GR4のフラグ値を取得 - LAD GR4,4,GR4 ; GR4に文字列「Buzz」の長さ4を追加 -SETLEN ST GR4,LEN ; LENにGR4の値を出力 -CHKFB JZE PUTBUZ ; GR4が0の場合、3の倍数ではないので、PUTBUZへジャンプ -PUTFIZ OUT FIZZ,LEN ; 「Fizz」または「FizzBuzz」を出力 + JNZ PUTS ; GR3が0でない場合、BIZNUMの倍数ではないので、PUTSへジャンプ + LD GR5,BUZLEN ; GR4のフラグ値を取得 +PUTS LD GR6,GR4 ; GR6 <- GR4 + AND GR6,GR5 ; GR6 <- GR6 and GR4 + JZE CHKFIZ ; GR6が0の場合、GR4かGR5のどちらかが0なので、CHKFIZへジャンプ + ADDL GR4,GR5 ; GR4 <- GR4 + GR5 + JUMP PUTFIZ ; 「FizzBuzz」を出力するため、PUTFIZへジャンプ +CHKFIZ LD GR4,GR4 ; GR4のフラグ値を取得 + JZE CHKBUZ ; GR4が0の場合、CHKBUZへジャンプ +PUTFIZ ST GR4,LEN ; LEN <- GR4 + OUT FIZZ,LEN ;「Fizz」または「FizzBuzz」を出力 JUMP FIN ; FINへジャンプ -PUTBUZ OUT BUZZ,LEN ; 「Buzz」を出力 +CHKBUZ LD GR5,GR5 ; GR5のフラグ値を取得 + JZE PUTNUM ; GR5が0の場合、PUTNUMへジャンプ +PUTBUZ ST GR5,LEN ; LEN <- GR4 + OUT BUZZ,LEN ;「Buzz」を出力 JUMP FIN ; FINへジャンプ PUTNUM CALL OUTA ; GR1の数値を表示 FIN RPOP RET +FIZNUM DC 3 +BUZNUM DC 5 FIZZ DC 'Fizz' BUZZ DC 'Buzz' +FIZLEN DC 4 +BUZLEN DC 4 LEN DS 1 diff --git a/javascript/fizzbuzz.js b/javascript/fizzbuzz.js new file mode 100644 index 0000000..d4971b0 --- /dev/null +++ b/javascript/fizzbuzz.js @@ -0,0 +1,20 @@ +min = 1; +max = 100; + +for(i = min; i <= max; i++) { + fizzbuzz_puts(i); +} + +function fizzbuzz_puts(n) { + fizz = (n % 3 == 0); + buzz = (n % 5 == 0); + if(fizz && buzz) { + document.write("FizzBuzz
\n"); + } else if(fizz) { + document.write("Fizz
\n"); + } else if(buzz) { + document.write("Buzz
\n"); + } else { + document.write(n, "
\n"); + } +} diff --git a/js/index.html b/javascript/index.html similarity index 100% rename from js/index.html rename to javascript/index.html diff --git a/js/fizzbuzz.js b/js/fizzbuzz.js deleted file mode 100644 index b52eb32..0000000 --- a/js/fizzbuzz.js +++ /dev/null @@ -1,19 +0,0 @@ -min = 1; -max = 100; - -for(i = min; i <= max; i++) { - fizzbuzz_puts(i); -} - -function fizzbuzz_puts(n) { - if (fizz = (n % 3 == 0)) { - document.write("Fizz"); - } - if (buzz = (n % 5 == 0)) { - document.write("Buzz"); - } - if (!fizz && !buzz) { - document.write(n); - } - document.write("
\n"); -}