Вы можете использовать schema/pred
для включения произвольных предикатов:
(schema/pred #(<= 0 % 100))
Вы также можете комбинировать это со схемой, используя schema/constrained
:
(schema/constrained schema/Int #(<= 0 % 100))
Вы получаете более качественные сообщения об ошибках, если называете свой предикат (например, in-range
).