Split a character string based on change of character: Difference between revisions
Split a character string based on change of character (view source)
Revision as of 20:20, 14 June 2017
, 7 years ago→JS ES6: Updated primitives
(Add Forth solution) |
(→JS ES6: Updated primitives) |
||
Line 514:
{{Trans|Haskell}}
<lang JavaScript>(() => {
// GENERIC FUNCTIONS ------------------------------------------------------
// concat :: [[a]] -> [a] | [String] -> String
const concat = xs =>
xs.length > 0 ? (() => {
const unit = typeof xs[0] === 'string' ? '' : [];
return unit.concat.apply(unit, xs);
})() : [];
// group :: Eq a => [a] -> [[a]]
Line 528 ⟶ 533:
h = a.active.length > 0 ? a.active[0] : undefined,
blnGroup = h !== undefined && f(h, x);
return {
active: blnGroup ? a.active.concat([x]) : [x],
sofar: blnGroup ? a.sofar : a.sofar.concat([a.active])
};
Line 543 ⟶ 547:
const intercalate = (s, xs) => xs.join(s);
// map :: (a -> b) -> [a] -> [b]
// TEST▼
const map = (f, xs) => xs.map(f);
return intercalate(", ", group("gHHH5YY++///\\".split(''))▼
// show :: a -> String
const show = (...x) =>
JSON.stringify.apply(
null, x.length > 1 ? [x[0], null, x[1]] : x
);
// stringChars :: String -> [Char]
const stringChars = s => s.split('');
// TEST -------------------------------------------------------------------
return show(
intercalate(", ",
);
// -> "g, HHH, 5, YY, ++, ///, \\"
})();</lang>
{{Out}}
<pre>g, HHH, 5, YY, ++, ///, \</pre>
| |||