39 lines
957 B
JavaScript
39 lines
957 B
JavaScript
(lst => {
|
|
|
|
// knuthShuffle :: [a] -> [a]
|
|
let knuthShuffle = lst =>
|
|
range(0, lst.length - 1)
|
|
.reduceRight((a, i) => {
|
|
let iRand = i ? randomInteger(0, i) : 0,
|
|
tmp = a[iRand];
|
|
|
|
return iRand !== i ? (
|
|
a[iRand] = a[i],
|
|
a[i] = tmp,
|
|
a
|
|
) : a;
|
|
}, lst),
|
|
|
|
// randomInteger :: Int -> Int -> Int
|
|
randomInteger = (low, high) =>
|
|
low + Math.floor(
|
|
(Math.random() * ((high - low) + 1))
|
|
),
|
|
|
|
// range :: Int -> Int -> Maybe Int -> [Int]
|
|
range = (m, n, step) => {
|
|
let d = (step || 1) * (n >= m ? 1 : -1);
|
|
|
|
return Array.from({
|
|
length: Math.floor((n - m) / d) + 1
|
|
}, (_, i) => m + (i * d));
|
|
};
|
|
|
|
|
|
return knuthShuffle(lst);
|
|
|
|
})(
|
|
'alpha beta gamma delta epsilon zeta eta theta iota kappa lambda mu'
|
|
.split(' ')
|
|
);
|