Add where clause to list comprehension.

2026-09-14 21:31:20 +00:00 · 2018-05-23 23:43:48 -04:00
parent b09bf72490
commit 8bcb5e0019
2 changed files with 34 additions and 31 deletions
@@ -42,7 +42,7 @@

 (defn assert-many [f n e]
 (var good true)
- (for [i 0 n]
+ (loop [i :range [0 n]]
  (if (not (f i))
   (:= good false)))
 (assert good e))