- 1 名前：デフォルトの名無しさん [02/04/15 12:09]
- 7行×79文字なら言語は問いません。
過去作品は>>2-5を参照。
■前スレ
pc.2ch.net/test/read.cgi/tech/984182993/
- 992 名前：デフォルトの名無しさん mailto:sage [02/09/29 21:02]
- >>991
いいと思うぞ
- 993 名前：989 mailto:sage [02/09/29 21:05]
- 俺はlispを知らないので、代わりにlisp風？ミニ電卓を作ってみた。
"(* (+ 2 3) 4)" みたいな計算ができる。
貧弱な上短くする余地もまだまだある、つーか手抜きだが、その辺は好きに弄ってくれ。
#include<stdio.h>
char s[999],*p=s;a(void){int r=0;if(*p=='('){char c=*++p;++p;while(*p==32)++p;
if(c=='+')r=a()+a();else if(c=='-')r=a()-a();else if(c=='*')r=a()*a();else if(
c=='/')r=a()/a();else if(c=='%')r=a()%a();else if(c=='p'){r=a();printf("%d\n",
r);}++p;}else do{r=r*10+*(p++)-'0';}while(*p!=32&&*p!=0&&*p!=')');while(*p==32
)++p;return r;}main(){gets(s);printf("%d\n",a());return 0;}
- 994 名前：デフォルトの名無しさん mailto:sage [02/09/29 21:14]
- >>993
つまり、逆ポーランド記法の電卓ってこと？
- 995 名前：989 mailto:sage [02/09/29 21:21]
- 逆ポーランド記法と正反対で、演算子が前に来るから…何て言うんだろ？
表示のpとループ構文l(←もちろん独自仕様)加えて7行に増やした(w
例えば(l 10 (p 10)) で 10を10回表示。
#include<stdio.h>
char s[999],*p=s;a(void){int r=0;if(*p=='('){char c=*++p;++p;while(*p==32)++p;
if(c=='+')r=a()+a();else if(c=='-')r=a()-a();else if(c=='*')r=a()*a();else if(
c=='/')r=a()/a();else if(c=='%')r=a()%a();else if(c=='p'){r=a();printf("%d\n",
r);}else if(c=='l'){int i,n=a();char*b=p;for(i=0;i<n;++i){p=b;r=a();}}++p;}
else do{r=r*10+*(p++)-'0';}while(*p!=32&&*p!=')');while(*p==32)++p;return r;}
main(){gets(s);printf("%d\n",a());return 0;}
- 996 名前：デフォルトの名無しさん mailto:どうせネタだろ [02/09/29 21:25]
- >>994
> つまり、逆ポーランド記法の電卓ってこと？
逆ポーランドは、反対。
2 3 + 4 * とか入力すると、20 とか出力される。HP の奴が有名。
ポーランド記法は、* + 2 3 4 とか入力する。
- 997 名前：デフォルトの名無しさん mailto:sage [02/09/29 21:27]
- HPの電卓は最高だな。クソCompaqめが…
１０００取っていい？
- 998 名前：デフォルトの名無しさん mailto:sage [02/09/29 21:28]
- >>996
ネタかどうかしらないがageるな
- 999 名前：デフォルトの名無しさん mailto:sage [02/09/29 21:32]
- 次スレ：七行プログラミング part3
pc3.2ch.net/test/read.cgi/tech/1033143528/l50
兄弟スレ：「釣りバカ日誌パート１」
pc3.2ch.net/test/read.cgi/tech/1033220509/l50
ここは 乂1000取り合戦場乂 となりますた。。。
＼∧＿ﾍ ／￣￣￣￣￣￣￣￣￣￣￣￣
,,､,､,,, / ＼〇ノゝ∩ ＜ 1000取り合戦、いくぞｺﾞﾙｧ！！ ,,､,､,,,
/三√ ﾟДﾟ) / ＼＿＿＿＿＿＿＿＿＿＿＿＿ ,,､,､,,,
/三/| ﾟＵﾟ|＼ ,,､,､,,, ,,､,､,,,
,,､,､,,, Ｕ （:::::::::::） ,,､,､,,, ＼オーーーーーーーッ！！／
//三/|三|＼ ∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
∪ ∪ （ ） （ ） （ ） ）
,,､,､,,, ,,､,､,,, ∧＿∧∧＿∧∧＿∧ ∧＿∧∧＿∧∧＿∧∧＿∧
,,､,､,,, （ ） （ ） （ ） （ ）
- 1000 名前：997 ◆1O00getQ mailto:お言葉に甘えて [02/09/29 21:32]
- ＼＼ ／／
♪ ＼＼ ｷｮｳﾓｹﾞﾝｷﾆ 1000get♪ ﾐﾝﾅﾅｶﾖｸ 1000get♪ ／／ ♪
＼＼ ／／ ♪
♪ ∧ ∧ ∧ ∧ ∧ ∧ ∧ ∧ ∧ ∧ ∧∧ ♪
♪ ∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧ ♪
(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧
♪ ∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*)∧ ∧(ﾟ0 ﾟ*) ♪
─♪──(ﾟ0 ﾟ*)| ∪(ﾟ0 ﾟ*)| ∪(ﾟ0 ﾟ*)| ∪(ﾟ0 ﾟ*)| ∪(ﾟ0 ﾟ*)| ∪(ﾟ0 ﾟ*) | ∪(ﾟ0 ﾟ*) | ∪───────
| ∪ | | ∪| | | ∪. | | | ∪| | .| ∪| | | ∪ | | | ∪ | |〜 ♪
♪ | | U U .| | U U | | U U. | | U U .| | U U | | U U | | U U ♪
U U U U U U U U U U U U U U
- 1001 名前：１００１ [Over 1000 Thread]
- このスレッドは１０００を超えました。
もう書けないので、新しいスレッドを立ててくださいです。。。
|
 |
