File tree Expand file tree Collapse file tree 4 files changed +387
-4
lines changed Expand file tree Collapse file tree 4 files changed +387
-4
lines changed Original file line number Diff line number Diff line change @@ -4683,8 +4683,8 @@ reduces them without incurring seq initialization"
4683
4683
(fn ep3
4684
4684
([] true )
4685
4685
([x] (boolean (and (p1 x) (p2 x) (p3 x))))
4686
- ([x y] (boolean (and (p1 x) (p2 x ) (p3 x) (p1 y) (p2 y ) (p3 y))))
4687
- ([x y z] (boolean (and (p1 x) (p2 x ) (p3 x ) (p1 y ) (p2 y) (p3 y ) (p1 z ) (p2 z ) (p3 z))))
4686
+ ([x y] (boolean (and (p1 x) (p1 y ) (p2 x) (p2 y) (p3 x ) (p3 y))))
4687
+ ([x y z] (boolean (and (p1 x) (p1 y ) (p1 z ) (p2 x ) (p2 y) (p2 z ) (p3 x ) (p3 y ) (p3 z))))
4688
4688
([x y z & args] (boolean (and (ep3 x y z)
4689
4689
(every? #(and (p1 %) (p2 %) (p3 %)) args))))))
4690
4690
([p1 p2 p3 & ps]
@@ -4722,8 +4722,8 @@ reduces them without incurring seq initialization"
4722
4722
(fn sp3
4723
4723
([] nil )
4724
4724
([x] (or (p1 x) (p2 x) (p3 x)))
4725
- ([x y] (or (p1 x) (p2 x ) (p3 x) (p1 y) (p2 y ) (p3 y)))
4726
- ([x y z] (or (p1 x) (p2 x ) (p3 x ) (p1 y ) (p2 y) (p3 y ) (p1 z ) (p2 z ) (p3 z)))
4725
+ ([x y] (or (p1 x) (p1 y ) (p2 x) (p2 y) (p3 x ) (p3 y)))
4726
+ ([x y z] (or (p1 x) (p1 y ) (p1 z ) (p2 x ) (p2 y) (p2 z ) (p3 x ) (p3 y ) (p3 z)))
4727
4727
([x y z & args] (or (sp3 x y z)
4728
4728
(some #(or (p1 %) (p2 %) (p3 %)) args)))))
4729
4729
([p1 p2 p3 & ps]
You can’t perform that action at this time.
0 commit comments