From 9512a8c8cb11ec985f9802307a4bd227917814ec Mon Sep 17 00:00:00 2001 From: j8takagi Date: Sun, 28 Oct 2012 19:07:21 +0900 Subject: [PATCH] =?utf8?q?FizzBuzz=E3=81=AE=E3=83=AD=E3=82=B8=E3=83=83?= =?utf8?q?=E3=82=AF=E3=82=92=E8=A6=8B=E7=9B=B4=E3=81=97=E3=80=81=E5=90=84?= =?utf8?q?=E8=A8=80=E8=AA=9E=E7=89=88=E3=81=AB=E5=8F=8D=E6=98=A0?= MIME-Version: 1.0 Content-Type: text/plain; charset=utf8 Content-Transfer-Encoding: 8bit --- c/fizzbuzz | Bin 0 -> 8434 bytes c/fizzbuzz.c | 21 +++++++-------- casl/casl2lib/abs.casl | 17 ++++++++++++ casl/casl2lib/divl.casl | 47 ++++++++++++++++++++++++++++++++++ casl/casl2lib/outa.casl | 44 +++++++++++++++++++++++++++++++ casl/casl2lib/rev.casl | 27 +++++++++++++++++++ casl/fizzbuzz.casl | 45 ++++++++++++++++++++------------ javascript/fizzbuzz.js | 20 +++++++++++++++ {js => javascript}/index.html | 0 js/fizzbuzz.js | 19 -------------- 10 files changed, 194 insertions(+), 46 deletions(-) create mode 100755 c/fizzbuzz create mode 100644 casl/casl2lib/abs.casl create mode 100644 casl/casl2lib/divl.casl create mode 100644 casl/casl2lib/outa.casl create mode 100644 casl/casl2lib/rev.casl create mode 100644 javascript/fizzbuzz.js rename {js => javascript}/index.html (100%) delete mode 100644 js/fizzbuzz.js diff --git a/c/fizzbuzz b/c/fizzbuzz new file mode 100755 index 0000000000000000000000000000000000000000..3f12845b445a11e07d27783a560e3862ca0e645f GIT binary patch literal 8434 zcmeHMZERcB89w*gNnDb;`7kul47`z+lu@UFG@`UX^I4^&-$@6Qa%;yquNqJX_-I^2#xMTgK1PsX+c4R(hY|9Jm=h#IH641 z@8wvp-}gE1bH49A_k4V-xvj-8455Q5T!LtK#_g$v{;5xSYK31c5LKd5d{yKlioV*t z;6VIHK*>X#8{&er1Gn#UdnjeV6#5V?1xg5{rIZ&4L1B7Pto*)3LinC^dnj%sDuS?F z`c0@R_^aTfoB*cK&oU@c@S`Z3(gaM=zAdNh@Ocz=e$efqtc8!F{afJ&{6f(AZ-YO# zerLg?Fg@E>-4hE{_k>sU#Nz4xKq?WqR{2nM>0iI81D0wB^DKujExVe1NB@?KA0NEq z(nk+}QuC*}1N+9K@A-D`W4qZ$EJOB{U-)54`{`T$F-ki(1ad$r?B#PX^U=W%W0eNb zj>Q(zw_ZUpiLuUS2mQqDDM01j z)JX23Mtl)9D!V;%)-%C0JNJz({)!O8na{G>?BJ-KH?a}16X*H&T_nuBk!;!Mb{ zI*(GaOFzRuW3x+HT9oGLcaTeVDNBvgcY0i6mL6r5PmfB>T0}Xdr=J0?dH>F#zh~Z^ z+|s@+x)*&JEymy09noVCx;+zr0AXrmR_GWyh3dQa-dK)oMEd4~70@sEQJZ~dD)4{w zQ!{hMSbZ{e`GMz9hRBQ>Pmz-K4bm;?t4}5;Ue03%M&>2=&Rt^%>}BG>k*ml@{+YAo z2P?rvhm=0gI2a3#yDJ%&9e-tPL~^QzH+p`vqobo^=)@=Q4V^f8{)*)<4vib5#`w_h zm%ljp#-hhZ7dp$L9Ssq4< zpey)v4?_<%Rr=19!16JHA6=e-Z7^aD==YzJeSl`m(D98O+b3d3x^L_+c>XhID~5Y2 zR~~qQ=_a1~cQ$(YcH=kr^W%qkkRbM=0}IXi@L=44MrK^USA@Asd-~H=G!Uhj1u<4bx3vL9(V>o72G95R47&U5o& zz6a)eV7>?Ddtkl?=6m4(vj?!u$+G2I)5h{ft`&-)-+aLB!Nx=!!CLg=&$Ed`*kf`( zb`9dWo_ZA+ODwS!QV8K1<6;N{*JV>!(Q*CZhj1-b0$B_>jP$e*L397bO$PVP)L5P* z_9Gs3O0X`I(Dwtw{GS8&%sSCB?DOj&Esz}$9lyS@@dkfYM<^Y))75RUcrcmp*9PhW z*R7~Y%g9yB6_zVDwVG1vCm(h;=X5sEpF$kJ(Ffb`;_q?@i5H;@VG7e-&_HE)HdC1e z_o~PnWn?~k(lqlPg>t#`u&)%R>~W|9t_V$c9tXfQ@^6K58zKA~E`ud-qXi@mL-OK? zl?6N|@-HPPPoZf3-8ra76d1dRee^N|R+HuY6XNL&_6y?@nxBWv#qY6(<7>i|= zwofdeA&e4Zskf}q#qzKO6sd?TNc@o5kBv(mPwHv`1K zbmFM_ATb^F$I?!FsQJt@ZzvT4sXe`RFeCygJE?S3Tc}SY*(U<=gdGXgH?*#>gWV45 zj;8~mbPUHwv9JgbMT4oR2!!{Rv zDX=>ey}c3ibs!uGrMsH*9`0U`h_Z6+0k&D#_zF=Sao1JOL5Pwxir4p!C)mkDy{a%hW-a`(s3q$1F~QcM`lSGznVsehypnn3zp!0Qj}S| zrE_@igBQL4ug2l&c5KC>?+0^uEPL&o{N4kvZw`+T#mK(XuG=yBt!D;K&?a@xYa^QQ za*SZ0u0;HG5RMtTK)&M~3mx9Xs_pWeggQU%&(*y5Ay&6ZYMxbCWx)AVVO0X>O@&#y znjaO$%Z9*tP+>m7YQ9sLGqjr56qYnOe<{qFO0BIG=E_{nM+$RBMthyLuS?EgLf(HV zKUex{t*PITKv7-eCH1fszwka_K%3 z;hHsLlJB2>U&wNc53~FxaGoPJaI?g@ShwH67rF{qx8J~yXch2?GajZ`C~g6kw;9j| z+H*TJ?>zXV5J#aWbNIQ>CCj(rFV87|AF%IXU7r&1C~$81KLj3e#*^hg3#+vl{eKr8|J4a5b@QN+KyfGp!G0Vg*V4Ytv^1BOI2j(}BgZ;omz&_`BDlyB& z_keTn0e_amXZja`d94+M&Gx(j?03?$es2Nudkwer{|%V$566%9il=~c+w&nXcU{d6 z{~WLmei#>_5N*3IE`Z|@#mPV=TF zSxn2e`i;$&Ml43#Go{ECwk$<&W@LT2RL9CW8Qfz<;$dMm-L|QIV{0Qy$nnT4SYfSi z+uTs!W^Hb1+1}i4wbwVaHM5cO#u3I;AGiycUs$ORxdu_S}ISH{9o0V+#1+is?Qwb{?jE8$7bMJ`1a4$SNpXnyB w(L(iv)99`~EBZ~e3Of#`{&HJrZMetU7U_ 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"); -} -- 2.18.0