more patterns in the partial evaluator

This commit is contained in:
krangelov
2021-09-24 19:14:48 +02:00
parent 466fd4a7da
commit f83ea160da
3 changed files with 77 additions and 30 deletions

View File

@@ -7,3 +7,5 @@ cc table {P1 => "p1"; P2 q => "p2"} ! P2 (Q1|Q2)
cc table {P1 => "p1"; P2 Q1 => "p2q1"; P2 Q2 => "p2q2"} ! P2 (Q1|Q2)
cc table {P1 => "p1"; P2 Q1 => "p2q1"; P2 Q2 => "p2q2"} ! P2 Q1
cc table {P1 => "p1"; P2 q => case q of {Q1 => "p2q1"; Q2 => "p2q2"}} ! P2 Q1
cc case <Q1,Q2> of {<Q1,Q1> => "11"; <Q1,Q2> => "12"; _ => "??"}
cc case <Q2,Q2> of {<Q1,Q1> => "11"; <Q1,Q2> => "12"; _ => "??"}

View File

@@ -6,3 +6,5 @@ param_table.P2 param_table.Q1
variants {"p2q1"; "p2q2"}
"p2q1"
"p2q1"
"12"
"??"