Aq
ну, только, наверное за год, потому что для 1000 три минуты считает
Size: a a a
Aq
ЗП
Aq
| comp | VM | t |
| --------------------- | --------------- | ------ |
| ghc 8.2.2 (O2) llvm 6 | stg ghc x64 | 7 |
| clean | abc | 40 |
| ocaml 4.04 flambda O3 | | 72 |
| idris 0.99 | | 54308 |
| purescript 0.11.4 | node v7.10.0 V8 | 128369 |
Aq
ЗП
ЗП
ЗП
Aq
ЗП
AK
VY
AK
VY
AK
type Something = One String | Two Int | Three Float | Four ( Int, Float )
myFn :: Something -> Subject -> Subject
-- doOne :: String -> Subject -> Subject
myFn (One s) = doOne s
-- doTwo :: Int -> Subject -> Subject
myFn (Two i) = doTwo i
-- doThree :: Float -> Subject -> Subject
myFn (Three f) = doThree f
-- doFour :: ( Int, Float ) -> Subject -> Subject
myFn (Four t) subj =
-- сделать что-то с subj, потом отдать в doFour
doFour t subj
case
это обойти?AK
AP