Sha256: c74471e132514f48976f430f24d31675f21d9c80416ca2a040360adcdf660ae1
Contents?: true
Size: 472 Bytes
Versions: 79
Compression:
Stored size: 472 Bytes
Contents
module SecretHandshake
let commandsMapping =
[(1 <<< 0, (fun acc -> acc @ ["wink"]));
(1 <<< 1, (fun acc -> acc @ ["double blink"]));
(1 <<< 2, (fun acc -> acc @ ["close your eyes"]));
(1 <<< 3, (fun acc -> acc @ ["jump"]))
(1 <<< 4, (fun acc -> acc |> List.rev))]
let applyCommand number acc (mask, apply) =
if number &&& mask <> 0 then apply acc
else acc
let commands number = commandsMapping |> List.fold (applyCommand number) []
Version data entries
79 entries across 79 versions & 1 rubygems