Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- fun paskal i j =
- if j = 0 then
- 1
- else if i = j then
- 1
- else
- (paskal (i-1) j)+(paskal (i-1) (j-1))
- fun paskal2 i j =
- if i = j then
- [1]
- else
- [paskal i j] @ paskal2 i (j+1)
- fun paskal3 n =
- if n = 1 then
- [[1]]
- else
- (paskal3 (n-1)) @ [paskal2 n 0]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement