fork download
copy 
  1.  (print 
  2.    (map 
  3.      (fn[n d](nil?(some #((set %) \a)(partition d d "a" (range n)))))
  4. 		[1 2 6 17 22 1 2 2 3 15]
  5. 		[1 1 3 17 2 2 3 4 9 16]
  6.    )
  7. )
  8.  
  9.  ;1,  1    truthy
  10.  ;2,  1    truthy
  11.  ;6,  3    truthy
  12. ;17, 17    truthy
  13. ;22,  2    truthy
  14. ; 1,  2    falsy
  15. ; 2,  3    falsy
  16. ; 2,  4    falsy
  17. ; 3,  9    falsy
  18. ;15, 16    falsy
Success #stdin #stdout 1.99s 335488KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
(true true true true true false false false false false)
https://ideone.com/prK5Iq
language:
Clojure (clojure 1.10.0)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!