Рефакторинг getPermutations() строки, использующей рекурсию, Ramda.js и стиль без точек

Question

Я пытаюсь реорганизовать свое исходное решение на функцию getPermutations(), используя точечный подход с использованием Ramda.js. Можно ли реорганизовать его дальше, в сторону бесшумного стиля. Похоже, я просто сделал еще больший беспорядок. Кроме того, при запуске тестов в исправленной версии есть ошибка: TypeError: reduce: list должен быть массивом или итерируемым.

Оригинальное решение:

// getPermutations :: String -> [String] 
function getPermutations(string) { 
    function permute(combination, permutations, s) { 
    if (!s.length) { 
     return permutations[combination] = true; 
    } 

    for (var i = 0; i < s.length; i++) { 
     permute(combination.concat(s[i]) 
      , permutations 
      , (s.slice(0, i) + s.slice(i+1)) 
      ); 
    } 
    return Object.keys(permutations); 
    } 

    return permute('', {}, string); 
} 

Моя попытка реорганизовать с Ramda.js:

var _ = require('ramda'); 

// permute :: String -> {String: Boolean} -> String -> [String] 
var permute = _.curry(function (combination, permutations, string) { 
    // callPermute :: String -> ({String: Bool} -> Char -> Int -> String) -> IO 
    var callPermute = function (combination) { 
    return function (acc, item, i, s) { 
     return permute(_.concat(combination, item) 
        , acc 
        , _.concat(_.slice(0, i, s), _.slice(i + Infinity, s)) 
        ); 
    }; 
    }; 

    var storeCombination = function() { 
    return permutations[combination] = true; 
    }; 

    // should be an ifElse, incorporating compose below 
    _.when(_.not(string.length), storeCombination); 

    return _.compose(_.keys 
        , _.addIndex(_.reduce(callPermute(''), {})) 
       ) (string.split('')); 
}); 

// getPermutations :: String -> [String] 
var getPermutations = permute('', {}); 

Answer 1

Там, кажется, несколько проблем с вашим решением, и я боюсь, что у меня нет время преследовать их. (Первое, что я вижу, что вы используете addIndex неправильно.)

Но если вы хотите увидеть рабочую permutation функцию в Ramda, I wrote this некоторое время назад:

// permutations :: [a] -> [[a]] 
const permutations = (tokens, subperms = [[]]) => 
    R.isEmpty(tokens) ? 
    subperms : 
    R.addIndex(R.chain)((token, idx) => permutations(
     R.remove(idx, 1, tokens), 
     R.map(R.append(token), subperms) 
    ), tokens); 

R.map(R.join(''), permutations(['A', 'B', 'C'])); 
//=> ["ABC", "ACB", "BAC", "BCA", "CAB", "CBA"] 

(Вы можете играть с этим на Ramda REPL.)