diff options
Diffstat (limited to 'src/algebra/d01agents.spad.pamphlet')
| -rw-r--r-- | src/algebra/d01agents.spad.pamphlet | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/algebra/d01agents.spad.pamphlet b/src/algebra/d01agents.spad.pamphlet index 60aec7a2..0df6f727 100644 --- a/src/algebra/d01agents.spad.pamphlet +++ b/src/algebra/d01agents.spad.pamphlet @@ -226,8 +226,7 @@ d01AgentsPackage(): E == I where commaSeparate(l:LST):ST == empty?(l)$LST => "" --- one?(#(l)) => concat(l)$ST - (#(l) = 1) => concat(l)$ST + one?(#(l)) => concat(l)$ST f := first(l)$LST t := [concat([", ",l.i])$ST for i in 2..#(l)] concat(f,concat(t)$ST)$ST |