(print
(map
(fn[n d](nil?(some #((set %) \a)(partition d d "a" (range n)))))
[1 2 6 17 22 1 2 2 3 15]
[1 1 3 17 2 2 3 4 9 16]
)
)
;1, 1 truthy
;2, 1 truthy
;6, 3 truthy
;17, 17 truthy
;22, 2 truthy
; 1, 2 falsy
; 2, 3 falsy
; 2, 4 falsy
; 3, 9 falsy
;15, 16 falsy
IChwcmludCAKICAgKG1hcCAKICAgICAoZm5bbiBkXShuaWw/KHNvbWUgIygoc2V0ICUpIFxhKShwYXJ0aXRpb24gZCBkICJhIiAocmFuZ2UgbikpKSkpCgkJWzEgMiA2IDE3IDIyIDEgMiAyIDMgMTVdCgkJWzEgMSAzIDE3IDIgMiAzIDQgOSAxNl0KICAgKQopCiAKIDsxLCAgMSAgICB0cnV0aHkKIDsyLCAgMSAgICB0cnV0aHkKIDs2LCAgMyAgICB0cnV0aHkKOzE3LCAxNyAgICB0cnV0aHkKOzIyLCAgMiAgICB0cnV0aHkKOyAxLCAgMiAgICBmYWxzeQo7IDIsICAzICAgIGZhbHN5CjsgMiwgIDQgICAgZmFsc3kKOyAzLCAgOSAgICBmYWxzeQo7MTUsIDE2ICAgIGZhbHN5