Advertisement
Guest User

Untitled

a guest
Mar 27th, 2014
37
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
F# 0.26 KB | None | 0 0
  1. let rec sumWays x y n =
  2.     if x = n && y = n
  3.         then 0
  4.     else if x = n
  5.         then 1 + (sumWays x (y + 1) n)
  6.     else if y = n
  7.         then 1 + (sumWays (x + 1) y n)
  8.     else
  9.         2 + (sumWays (x + 1) y n) + (sumWays x (y + 1) n)
  10.  
  11. sumWays 0 0 2
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement