- 1
- 2
- 3
- 4
- 5
- 6
let inline id a = a
let inline const1 value _ = value
let inline applyNTimes f n s =
let fs = Seq.init n <| const1 f
let fa = Seq.fold (>>) id fs
fa s
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+127
let inline id a = a
let inline const1 value _ = value
let inline applyNTimes f n s =
let fs = Seq.init n <| const1 f
let fa = Seq.fold (>>) id fs
fa s
HaskellGovno 04.05.2014 13:20 # 0
HaskellGovno 04.05.2014 13:21 # 0
Да и вообще можно в одну строчку
LispGovno 04.05.2014 13:27 # +2
HaskellGovno 04.05.2014 13:54 # +2
hometwo 04.05.2014 14:56 # −8
brutushafens 04.05.2014 16:48 # 0
hometwo 04.05.2014 22:56 # −7
brutushafens 05.05.2014 08:01 # −1