-
Notifications
You must be signed in to change notification settings - Fork 0
/
tenminutewalk.fsx
30 lines (24 loc) · 1.45 KB
/
tenminutewalk.fsx
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
(*
You live in the city of Cartesia where all roads are laid out in a perfect grid.
You arrived ten minutes too early to an appointment, so you decided to take the opportunity to go for a short walk.
The city provides its citizens with a Walk Generating App on their phones --
everytime you press the button it sends you an array of one-letter strings representing directions to walk (eg. ['n', 's', 'w', 'e']).
You know it takes you one minute to traverse one city block, so create a function that will return true if the walk
the app gives you will take you exactly ten minutes (you don't want to be early or late!) and will, of course, return you to your starting point.
Return false otherwise.
Note: you will always receive a valid array containing a random assortment of direction letters ('n', 's', 'e', or 'w' only).
It will never give you an empty array (that's not a walk, that's standing still!).
taken from: https://www.codewars.com/kata/54da539698b8a2ad76000228/train/fsharp
*)
let isValidWalk walk =
let counts = walk |> List.countBy id |> Map.ofList
let compare a b cs =
match (Map.tryFind a cs, Map.tryFind b cs) with
|(Some(acount),Some(bcount)) -> acount = bcount
|(None, None) -> true
|_ -> false
(walk |> Seq.length = 10)
&& compare 'n' 's' counts
&& compare 'e' 'w' counts
let valid = isValidWalk ['n';'s';'n';'s';'n';'s';'n';'s';'n';'s']
printfn "%A" valid