リストの操作を行うプログラムについて説明しましょう。
デカルト言語では、リストの操作をとても簡潔に行えます。
以下のリストの操作のプログラムは、デカルト言語と同様に1階述語論理をベースにしたprolog言語のプログラムから持ってきたものです。 (prologの持つ機能は、ほぼデカルト言語のサブセットの位置付けとなっています。)
以下のリスト操作のプログラムは、デカルト言語のリリースパッケージのexampleディレクトリの中のlistファイルにもありますので参照してみてください。
形式:<append #out #in1 #in2>
#in1と#in2のリストを連結して、#outに設定します。
他の文書でも、説明に使用していますが、実に便利なプログラムです。
プログラム:
実行例:
このappendでおもしろいのは、逆に入力の片方を変数にして、出力に結果のリストを設定すると、リストの差分が求められることです。
以下をご覧ください。
#xに(a b c d e f) から (a b c)を除いた(d e f)が結果として出力されます。
反対の入力を変数にしても同様です。
形式:<reverse #out #in>
リスト#inを逆の順に変換して#outに設定します。
プログラム:
実行例:
reverseの場合もappendと同様に、出力に値を設定すると、逆に入力に結果が得られます。
形式:<last #out #list>
リスト#listの最後の要素を、#outに設定します。
プログラム:
実行例:
lastの場合は、入出力を逆にして出力にデータを入れても、appednやリバースのようにはいきません。最後の値が分かってもリスト全体がどのようなものになるのかは無限の可能性があるからです。
さて、lastの場合はどのような結果になるかというと、実は以下のような結果となります。
形式: <member #mem #list>
#listの中に#memが含まれているか判定します。
結果は述語の実行結果で判定します。
メンバーに含まれていればtrueとなり、含まれていなければunknownとなります。
プログラム:
実行例:
形式:<flatten #out #in>
リスト#inの中の入れ子状のリストを、平坦なリストに変換して#outに設定します。
たとえば、複雑なリスト(a (b c (d e) f)) は、単純な(a b c d e f)とフラットなリストに変換されます。
このようなリストの複雑な操作を、わずか9行で実現できてしまいます。
プログラム:
実行例:
形式:<difference #out #in1 #in2>
リスト#in1と#in2のリストの要素の中の共通でない要素を差分として、#in1にあるが#in2にない要素のリストを#outに設定します。
リストの要素の順番には関わらずに含まれている要素だけに着目して差分を抽出します。
プログラム:
実行例:
形式:<equal_sets #set1 #set2>
リスト#set1と#set2の要素がすべて等しいか判定します。
リストの中の要素の順番に関わらず、含まれている要素が等しいかのみを判定します。
プログラム:
形式: <intersect #out #in1 #in2>
リスト#in1と#in2の要素を比較し、共通な要素のリストを#outに設定します。
要素の順番に関わらず、共通の要素が抽出されます。
プログラム:
実行例:
形式: <union #out #in1 #in2>
リスト#in1と#in2の要素を併せ、共通する要素は重複しないように一つにして、すべての要素を#outに設定します。
プログラム:
実行例:
形式: <subset #subset #set>
#subsetが#setのサブセットであるときtrueになります。
プログラム:
実行例:
形式: <join #out #in1 #in2>
#in1と#in2を併合したリストを#outに設定します。併合は#in1と#in2の対応する順番の要素ごとに行われます。つまり、#in1の1番目と#in2の1番目が#outに追加され、次は2番目同士の要素が並び、これをリストの最後の要素まで繰り返して#outに設定していきます。
プログラム:
実行例:
形式: <occures #n #e #list>
要素#eが、#listの中で出現する回数を、#nに設定します。
プログラム:
実行例: