From 6b3075d90d945d5e7e8fd4d28284ffd99dbeb82e Mon Sep 17 00:00:00 2001 From: Shinya Sato Date: Fri, 24 Sep 2021 16:42:54 +0900 Subject: v0.4.1 --- sample/processnet1.in | 20 ++++++++++++++++++++ 1 file changed, 20 insertions(+) create mode 100644 sample/processnet1.in (limited to 'sample/processnet1.in') diff --git a/sample/processnet1.in b/sample/processnet1.in new file mode 100644 index 0000000..d02404e --- /dev/null +++ b/sample/processnet1.in @@ -0,0 +1,20 @@ +// Rules +dup(a1,a2) >< (int i):xs => a1~(i:xs1), a2~(i:xs2), dup(xs1,xs2)~xs; +dup(a1,a2) >< [] => a1~[], a2~[]; + +inc(r) >< (int i):xs => r~(i+1):w, inc(w)~xs; +inc(r) >< [] => r~[]; + + +// Nets +dup(r,w)~r1, inc(r1) ~ (0:w); + +// +-----+ +-----+ +---+ +// r ----| | r1 | | | | +// | dup |--->---| inc |---><---| 0 |----+ +// +---| | | | | | | +// | +-----+ +-----+ +---+ | +// | | +// +-----------------------------------------+ +// w + \ No newline at end of file -- cgit v1.2.3