使用递归、Ramda.js和无点样式重构字符串的getPermutations()

Question

我一直在尝试使用Ramda.js的无点方法将我的原始解决方案重构为getPermutations（）函数。是否可以进一步重构，使其成为无点风格。看起来我把事情搞得更糟了。此外，当我运行测试时，重构版本中当前存在一个错误：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。）

但是，如果你想在Ramda中看到一个有效的permutation函数，我不久前就写过：

// 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上玩这个。）