- 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
Да и вообще можно в одну строчку