aboutsummaryrefslogtreecommitdiff
path: root/sample/unary_numbers/nqueenSZ.in
diff options
context:
space:
mode:
authorShinya Sato <shinnya.sato@gmail.com>2024-03-05 18:19:27 +0900
committerShinya Sato <shinnya.sato@gmail.com>2024-03-05 18:19:27 +0900
commit49960d8950d001a372a0abde670a66ee60026957 (patch)
treeadad1d5fe428bf0bea151f71ed114223fc246bca /sample/unary_numbers/nqueenSZ.in
parent0cf73da9ad035089c66d21021a656e4606796c47 (diff)
downloadinpla-49960d8950d001a372a0abde670a66ee60026957.tar.gz
inpla-49960d8950d001a372a0abde670a66ee60026957.zip
v0.12.0
Diffstat (limited to '')
-rw-r--r--sample/unary_numbers/nqueenSZ.in (renamed from sample/nqueenSZ.in)8
1 files changed, 4 insertions, 4 deletions
diff --git a/sample/nqueenSZ.in b/sample/unary_numbers/nqueenSZ.in
index c61515c..b83b89c 100644
--- a/sample/nqueenSZ.in
+++ b/sample/unary_numbers/nqueenSZ.in
@@ -88,8 +88,8 @@ len_list_(len, done, ct) >< x:xs =>
len(ret) >< [] =>
ret~Z;
-len(ret) >< x:xs =>
- len_list(ret, Eraser)~x:xs;
+len(ret) >< list =>
+ len_list(ret, Eraser)~list;
@@ -162,8 +162,8 @@ queen(ret, n) >< () =>
queen_(r, b, n) >< Z =>
r~[], Eraser~b, Eraser~n;
-queen_(r, b, n) >< S(m) =>
- mem_ret, done_m, done_b << member(S(m), b),
+queen_(r, b, n) >< m =>
+ mem_ret, done_m, done_b << member(m, b),
queen__chk_m_in_b(r, done_b, n, done_m)~mem_ret;