% このディレクトリの索引 たけしさん たけしさん_2 たけしさん_3


'「たけしさんの前に9人、後ろに4人います。みんなで何人?」'(_何人) :-
        'たけしさんの前に9人、後ろに4人います。'(_たけしさんの前に9人,_後ろに4人),
        'みんなで何人?'(_たけしさんの前に9人,_後ろに4人,_何人).

'たけしさんの前に9人、後ろに4人います。'(_たけしさんの前に9人,_後ろに4人) :-
        'たけしさんの前に9人、'(_たけしさんの前に9人),
        '後ろに4人います。'(_後ろに4人).

'たけしさんの前に9人、'(_たけしさんの前に9人) :-
        append(_前に9人,[_たけしさん],_たけしさんの前に9人),
        前に9人(_前に9人).

前に9人(_前に9人) :-
        length(_前に9人,9).

'後ろに4人います。'(_後ろに4人) :-
        length(_後ろに4人,4).

'みんなで何人?'(_たけしさんの前に9人,_後ろに4人,_何人) :-
        みんなで(_たけしさんの前に9人,_後ろに4人,_みんなで),
        '何人?'(_みんなで,_何人).

みんなで(_たけしさんの前に9人,_後ろに4人,_みんなで) :-
        append(_たけしさんの前に9人,_後ろに4人,_みんなで).

'何人?'(_みんなで,_何人) :-
        length(_みんなで,_何人).