Find centralized, trusted content and collaborate around the technologies you use most.
Teams
Q&A for work
Connect and share knowledge within a single location that is structured and easy to search.
現在、次のことを実行するプログラムを作成しています。[0,1]* のリストがあり、サンプル リストが [0,1,0,0,1] の場合、ここで、数値が 0 の場合はカウントが増加し、数値が 1 の場合はカウントが減少します。
dd(0)-->[]. dd(Newcnt)-->[0],dd(Cnt),{Newcnt is Cnt + 1}. dd(Newcnt)-->[1],dd(Cnt),{Newcnt is Cnt - 1}.