B
Там где меньше джампов процу будет проще прокушать
Пайплайны и все такое
Size: a a a
B
B
AZ
DS
B
DS
DS
B
AK
{- | repeat action until result fulfills condition -}
until :: (Monad m) => (a -> Bool) -> m a -> m a
until p m =
let go =
do x <- m
if p x
then return x
else go
in go
DS
def until(f):
while not f():
pass
# пока пользователь не введет '5'
until(lambda: input() == '5')
AZ
p
AZ
AZ
AZ
AZ
AZ
AZ
AZ
OA