- 【論理】Prolog【初心者】
723 ：デフォルトの名無しさん[sage]：2014/06/06(金) 00:01:25.80 ID:Ynv3Q/53 - g(C):- findall(I,(between(0,3,_),random_between(65,90,I)),C).
e([83,84,65,80],N):-!, format('~w回目で陽性かくにん！¥nよかった☆¥n',[N]).
e(_, N):- g(C), format('~c~c~c~c細胞', C), N1 is N+1, e(C, N1).
main:-e([], 0).
$ wc stap.pl
3 16 233 stap.pl
$ swipl -q -t main -f stap.prolog
ﾄﾞﾔ!
| - 【論理】Prolog【初心者】
724 ：デフォルトの名無しさん[sage]：2014/06/06(金) 00:03:45.32 ID:Ynv3Q/53 - g(C):-findall(I,(between(0,3,_),random_between(65,90,I)),C).
e([83,84,65,80],N):-!,format('~w回目で陽性かくにん！¥nよかった☆¥n',[N]).
e(_,N):-g(C),format('~c~c~c~c細胞',C),N1 is N+1,e(C,N1).
main:-e([],0).
$ wc -c stap.pl
223 stap.pl
$ swipl -q -t main -f stap.pl
スペースつめるの忘れてた
| - 【論理】Prolog【初心者】
725 ：デフォルトの名無しさん[sage]：2014/06/06(金) 00:52:39.27 ID:Ynv3Q/53 - g(C):-findall(I,(between(0,3,_),random(65,91,I)),C).
e([83,84,65,80],N):-!,format('~w回目で陽性かくにん！¥nよかった☆¥n',N).
e(_,N):-g(C),format('~c~c~c~c細胞',C),O is N+1,e(C,O).
m:-e(0,0).
$ wc -c stap.pl
207 stap.pl
swipl -q -t m -f stap.pl
もうだめだ寝る
| - 色んな言語でSTAPゴルフ
1 ：デフォルトの名無しさん[sage]：2014/06/06(金) 00:55:23.87 ID:Ynv3Q/53 - やろうずw
g(C):-findall(I,(between(0,3,_),random(65,91,I)),C).
e([83,84,65,80],N):-!,format('~w回目で陽性かくにん！¥nよかった☆¥n',N).
e(_,N):-g(C),format('~c~c~c~c細胞',C),O is N+1,e(C,O).
m:-e(0,0).
$ wc -c stap.pl
207 stap.pl
swipl -q -t m -f stap.pl
| - Swiftスレ
441 ：デフォルトの名無しさん[sage]：2014/06/06(金) 01:22:28.17 ID:Ynv3Q/53 - >>438
ぱっと見た感じ他の言語の寄せ集めだから別に覚える事なんてほとんどないわけだが。
| - 色んな言語でSTAPゴルフ
6 ：デフォルトの名無しさん[sage]：2014/06/06(金) 22:14:17.54 ID:Ynv3Q/53 - つまり人工知能が人工知能を作り始めたわけか
|
|