このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1316769778/113
#  助けて下さい頭がパンクしそうです。 
#   
#  CARD 
#  |CARDID|HOWMANYLEVEL| 
#  |   1 |        | 
#  |   2 |        | 
#   
#  CARDLEVEL 
#  |CARDID|LV1|LV2|LV3|LV4|LV5| 
#  |   1 |0 | 0| 23 | 28 | 0|  
#  |   2 |0 | 0| 0 | 30 | 55| 
#  |   1 |0 | 0| 25 | 29 | 0| 
#   
#  CARDテーブルの HOWMANYLEVELに 
#  CARDLEVELから0以外の個数を入れたいです。 
#  CARDLEVELのCARDIDは複数あります。 
# 
# 

'CARDテーブルの HOWMANYLEVELにCARDLEVELから0以外の個数を入れたいです。CARDLEVELのCARDIDは複数あります' :-
        'CARD'(_CARDID,_),
        findall(Count,(
                    'CARDLEVEL'(_CARDID,_LV1,_LV2,_LV3,_LV4,_LV5),
                    count((   member(LV,[_LV1,_LV2,_LV3,_LV4,_LV5]),
                              \+(LV=0)),
                            Count)),
                L),
        sum(L,_HOWMANYLEVEL),
        retract('CARD'(_CARDID,_)),
        assertz('CARD'(_CARDID,_HOWMANYLEVEL)),
        fail.
'CARDテーブルの HOWMANYLEVELにCARDLEVELから0以外の個数を入れたいです。CARDLEVELのCARDIDは複数あります'.