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


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

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

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

'たけしさんの後ろに4人います。'(_たけしさん,_たけしさんの後ろに4人) :-
        length(_後ろに4人,4),
        _たけしさんの後ろに4人 = [_たけしさん|_後ろに4人].

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

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

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