Coin-flip chaining: more concision with `lift`

concat-flips.js

import { concat, liftN } from 'ramda'

const flip = () => [ [ 'h' ], [ 't' ] ]
const concatFlips = liftN(2, concat)
const twoFlips = concatFlips(flip(), flip())
const threeFlips = concatFlips(twoFlips, flip())

twoFlips
// [ [ 'h', 'h' ], [ 'h', 't' ], [ 't', 'h' ], [ 't', 't' ] ]

threeFlips
// [ [ 'h', 'h', 'h' ],
//   [ 'h', 'h', 't' ],
//   [ 'h', 't', 'h' ],
//   [ 'h', 't', 't' ],
//   [ 't', 'h', 'h' ],
//   [ 't', 'h', 't' ],
//   [ 't', 't', 'h' ],
//   [ 't', 't', 't' ] ]