|
1
|
1 \subsection{CbC記法で書くagda}
|
|
|
2 CbCプログラムの検証をするに当たり、agdaコードもCbC記法で記述を行う。つまり継続渡しを用いて記述する必要がある。
|
|
|
3 以下が例となるコードである。
|
|
|
4 前述した加算を行うコードと比較すると、不定の型 (t) により継続を行なっている部分が見える。
|
|
|
5 これがAgdaで表現された CodeGear となる。
|
|
|
6
|
|
|
7 \subsection{agda による Meta Gears}
|
|
|
8 通常の Meta Gears はノーマルレベルの CodeGear、 DataGear では扱えないメタレベルの計算を扱う単位である。
|
|
|
9 Meta DataGear はメタ計算で使われる DataGear で、実行するメタ計算によって異なる。
|
|
|
10 今回はその Meta Gears をagdaによる検証の為に用いる。
|
|
|
11 検証での Meta Gears は DataGear が持つ同値関係や、
|
|
|
12 大小関係などの関係を表す DataGear がそれに当たると考えられる。
|
|
|
13 Agda 上で Meta DataGear を持つことでデータ構造自体が関係を持つデータを作ることができる。
|
|
|
14 以下が While Program での制約条件をまとめたものになる。
|
|
|
15 Agdaにおける Meta DataGear のコードを載せるi。
|
|
|
16 \lstinputlisting[label=agda-mdg, caption= Agda における Meta DataGear] {./src/agda-mdg.agda.replaced}
|
|
|
17
|
|
|
18 whileTestState で Meta DataGear を識別するためのデータを分け、
|
|
|
19 whileTestStatePでそれぞれの Meta DataGear を返している。
|
|
|
20 ここでは = の後ろの (vari env ≡ 0) (varn env ≡
|
|
|
21 c10 env)/ などのデータを Meta DataGear として扱う。
|
|
|
22 aa
|
|
|
23
|
