Skip to content

Commit

Permalink
We want to use the singular item on each loop
Browse files Browse the repository at this point in the history
Note: This example has a dubious tree structure. This might be
better rewritten using a proper binary tree and tree walking
strategies and then use first class patterns to collect needed
information generically.
  • Loading branch information
Brian Mitchell committed Mar 1, 2016
1 parent b6442ec commit 8b79197
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions 00_Slides.fsx
Expand Up @@ -170,5 +170,5 @@ let tree = Branch (Branch (Branch (Leaf 2,Leaf 3),Leaf 7),Leaf 1)
match tree with
| Leaves (items,root) ->
printfn "%A" root
for item in items do
printfn "%A" items
for item in items do
printfn "%A" item

0 comments on commit 8b79197

Please sign in to comment.