-> [Float]
multRandomNumbers (rand:otherRands) prev = curRand : multRandomNumbers otherRands curRand
where curRand = prev * ( 0.995 + ( rand * 0.0126315789473684 ) )
realRand = case curRand of
<0.8 -> 0.8
>1.2 -> 1.2
_ -> curRand
ты кстати ссылочку-то посмотри всё же мою поймешь, как надо оформить эти <0.8 и >1.2
Обсуждают сегодня