Я играл с CoffeeScript, когда обнаружил, что пишу следующие строки, а затем смотрю на них с благоговением:
compose = (f, g) -> (x) -> f g x
curry = (f) -> (x) -> (y) -> f(x, y)
uncurry = (f) -> (x, y) -> (f x) y
Как хорошо, я думал! Теперь, как упражнение, я думал, что обобщил функции curry и uncurry для n args, чтобы получить что-то похожее на это:
curry2 = (f) -> (x) -> (y) -> f(x, y)
curry3 = (f) -> (x) -> (y) -> (z) -> f(x, y, z)
curry4 = (f) -> (x) -> (y) -> (z) -> (t) -> f(x, y, z, t)
И то же самое для неуправляемого:
uncurry2 = (f) -> (x, y) -> (f x) y
uncurry3 = (f) -> (x, y, z) -> ((f x) y) z
uncurry4 = (f) -> (x, y, z, t) -> (((f x) y) z) t
Написание n-ary uncurry было не очень сложно:
uncurry = (n) -> (f) -> (args...) ->
if n == 1
f args[0]
else
((uncurry n - 1) f args.shift()) args...
С другой стороны, я не могу понять, как заставить n-ary curry работать. Я думал о реализации первой функции curry_list, которая является обобщением этого пакета:
curry_list2 = (f) -> (x) -> [x, y]
curry_list3 = (f) -> (x) -> (z) -> [x, y, z]
curry_list4 = (f) -> (x) -> (z) -> (t) -> [x, y, z, t]
Здесь реализация:
curry_list = (n) ->
curry_list_accum = (n, accum) ->
if n
(x) ->
accum.push x
curry_list_accum n - 1, accum
else
accum
curry_list_accum n, []
И тогда я бы просто составил curry_list с приложением функции, чтобы получить currying. Это то, что я пытался сделать:
curry = (n) ->
apply_helper = (f) -> (args) -> f args...
(f) -> compose (apply_helper f), (curry_list n)
Но по какой-то причине это не работает. Например, пытаясь оценить
curry(3)((a,b,c) -> a + b + c)(1)(2)(3)
выдает следующую ошибку:
Функция .prototype.apply: список аргументов имеет неправильный тип
Теперь, после того, как я записал несколько заметок, я понимаю, что попытка скомпоновать f с curry_list неверна. У меня есть интуиция, что то, что я ищу, - это нечто похожее на эту композицию, но это не совсем так. Правильно ли я это думаю?
Наконец, что было бы правильной реализацией?