fizzbuzz各種

C、JavaScript、CASL2、Ruby版を作成

diff --git a/0.txt b/0.txt
new file mode 100644 (file)
index 0000000..dd96488
--- /dev/null
+++ b/0.txt
@@ -0,0 +1,100 @@
+1
+2
+Fizz
+4
+Buzz
+Fizz
+7
+8
+Fizz
+Buzz
+11
+Fizz
+13
+14
+FizzBuzz
+16
+17
+Fizz
+19
+Buzz
+Fizz
+22
+23
+Fizz
+Buzz
+26
+Fizz
+28
+29
+FizzBuzz
+31
+32
+Fizz
+34
+Buzz
+Fizz
+37
+38
+Fizz
+Buzz
+41
+Fizz
+43
+44
+FizzBuzz
+46
+47
+Fizz
+49
+Buzz
+Fizz
+52
+53
+Fizz
+Buzz
+56
+Fizz
+58
+59
+FizzBuzz
+61
+62
+Fizz
+64
+Buzz
+Fizz
+67
+68
+Fizz
+Buzz
+71
+Fizz
+73
+74
+FizzBuzz
+76
+77
+Fizz
+79
+Buzz
+Fizz
+82
+83
+Fizz
+Buzz
+86
+Fizz
+88
+89
+FizzBuzz
+91
+92
+Fizz
+94
+Buzz
+Fizz
+97
+98
+Fizz
+Buzz

diff --git a/c/Makefile b/c/Makefile
new file mode 100644 (file)
index 0000000..0bcad0e
--- /dev/null
+++ b/c/Makefile
@@ -0,0 +1,16 @@
+CC ?= gcc
+CFLAGS ?= -g -Wall -Wextra
+RMF ?= rm -f
+
+COMMONSRC := word.c cmem.c cerr.c
+CASL2SRC := struct.c hash.c
+ASSRC := assemble.c token.c label.c
+EXECSRC := exec.c dump.c
+
+.PHONY: clean
+
+fizzubzz: fizzbuzz.c
+       $(CC) $(CFLAGS) -o fizzbuzz  $^
+
+clean:
+       @$(RMF) fizzbuzz

diff --git a/c/fizzbuzz.c b/c/fizzbuzz.c
new file mode 100644 (file)
index 0000000..f54ea80
--- /dev/null
+++ b/c/fizzbuzz.c
@@ -0,0 +1,28 @@
+#include <stdio.h>
+
+void puts_fizzbuzz(int n)
+{
+    int fizz, buzz;
+
+    if ((fizz = (n % 3 == 0))) {
+        printf("Fizz");
+    }
+    if ((buzz = (n % 5 == 0))) {
+        printf("Buzz");
+    }
+    if (!fizz && !buzz) {
+        printf("%d", n);
+    }
+    printf("\n");
+}
+
+int main()
+{
+    static int max = 100, min = 1;
+    int i;
+
+    for(i = min; i <= max; i++) {
+        puts_fizzbuzz(i);
+    }
+    return 0;
+}

diff --git a/casl/fizzbuzz.casl b/casl/fizzbuzz.casl
new file mode 100644 (file)
index 0000000..261cb5d
--- /dev/null
+++ b/casl/fizzbuzz.casl
@@ -0,0 +1,47 @@
+MAIN    START
+        RPUSH
+        LD      GR1,MIN         ; GR1にMINを代入
+LOOP    CALL    FIZBUZ          ; FIZBUZを呼び出す
+        LAD     GR1,1,GR1       ; GR1 <- GR1 + 1
+        CPL     GR1,MAX         ; GR1とMAXを比較
+        JPL     FIN             ; GR1 > MAX の場合、FINへジャンプ
+        JUMP    LOOP            ; LOOPへジャンプ
+FIN     RPOP
+        RET
+MIN     DC      1
+MAX     DC      100
+
+;; GR1の値に応じて次を出力
+;;    3の倍数: Fizz
+;;    5の倍数: Buzz
+;;    3の倍数かつ5の倍数: FizzBuzz
+;;    それ以外の数: 数値
+FIZBUZ  START
+        RPUSH
+        XOR     GR4,GR4         ; GR4: 文字列の長さおよびフラグ
+CHKFIZ  LAD     GR2,3           ; GR2に3を代入
+        CALL    DIVL            ; GR3 <- GR1 % GR2:3
+        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
+        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」を出力
+        JUMP    FIN             ; FINへジャンプ
+PUTBUZ  OUT     BUZZ,LEN        ; 「Buzz」を出力
+        JUMP    FIN             ; FINへジャンプ
+PUTNUM  CALL    OUTA            ; GR1の数値を表示
+FIN     RPOP
+        RET
+FIZZ    DC      'Fizz'
+BUZZ    DC      'Buzz'
+LEN     DS      1

diff --git a/js/fizzbuzz.js b/js/fizzbuzz.js
new file mode 100644 (file)
index 0000000..b52eb32
--- /dev/null
+++ b/js/fizzbuzz.js
@@ -0,0 +1,19 @@
+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("<br />\n");
+}

diff --git a/js/index.html b/js/index.html
new file mode 100644 (file)
index 0000000..9083003
--- /dev/null
+++ b/js/index.html
@@ -0,0 +1,8 @@
+<!DOCTYPE html>
+<html>
+<head>
+<script type="text/javascript" src="fizzbuzz.js"></script>
+</head>
+<body>
+</body>
+</html>

diff --git a/ruby/fizzbuzz.rb b/ruby/fizzbuzz.rb
new file mode 100755 (executable)
index 0000000..60ab1b1
--- /dev/null
+++ b/ruby/fizzbuzz.rb
@@ -0,0 +1,15 @@
+#!/usr/local/bin/ruby
+
+def puts_fizzbuzz(n)
+  print "Fizz" if fizz = (n % 3 == 0)
+  print "Buzz" if buzz = (n % 5 == 0)
+  print n if not fizz and not buzz
+  print "\n"
+end
+
+min = 1
+max = 100
+
+for i in min..max
+  puts_fizzbuzz(i)
+end