このディレクトリの索引
#  twitter_by_@102m4_20131128

'わかった、じゃあ数字をいれるとその文字数だけ寿限無を表示するプログラミングをつくる' :-
        'わかった、じゃあ数字をいれると'(_数字),
        その文字数だけ寿限無を(_数字,_その文字数だけ寿限無を),
        表示する(_その文字数だけ寿限無を).

'わかった、じゃあ数字をいれると'(_数字) :-
        整数を得る('わかった、じゃあ数字をいれて ',_数字 > 0,_数字).

その文字数だけ寿限無を(_文字数,_その文字数だけ寿限無を) :-
        freeze(_寿限無,sub_atom(_寿限無,0,_文字数,_,_その文字数だけ寿限無を)),
        寿限無(_寿限無).

寿限無(じゅげむじゅげむごこうのすりきれかいじゃりすいぎょのすいぎょうまつうんらいまつふうらいまつくうねるところにすむところやぶらこうじのぶらこうじぱいぽぱいぽぱいぽのしゅーりんがんしゅーりんがんのぐーりんだいぐーりんだいのぽんぽこぴーのぽんぽこなーのちょうきゅうめいのちょうすけ).

表示する(_文字数だけ寿限無を) :-
        writef('%t\n',[_文字数だけ寿限無を]).



% 「数字をいれる」は引数から
% 「その数詞の文字数だけ寿限無を」を変更(1)
% 「その数詞の文字数だけ寿限無を」を変更(2)