Skip to content

Instantly share code, notes, and snippets.

@zakaluka

zakaluka/Blog-AOCD1P1-Distance2.fs

Created February 17, 2017 17:43
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zakaluka/564ab0c22e8e5c2735e2e0c824b1ad50 to your computer and use it in GitHub Desktop.
Save zakaluka/564ab0c22e8e5c2735e2e0c824b1ad50 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
Blog-AOCD1P1-Distance2.fs
let distance stloc endloc = (abs (stloc.x - endloc.x)) + (abs (stloc.y - endloc.y))
let partOne strList =
strList |> moveAll |> fun x -> distance startPt x.pt
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment