Pascal's triangle: Difference between revisions
Content added Content deleted
| Line 4,021: | Line 4,021: | ||
pascal(N, Triangle), member(Row, Triangle), % Iterate and write each row |
pascal(N, Triangle), member(Row, Triangle), % Iterate and write each row |
||
write(Row), nl, fail. |
write(Row), nl, fail. |
||
pascal(_). |
pascal(_).</lang> |
||
*Output*: |
|||
</lang> |
|||
<lang prolog>?- pascal(5). |
|||
[1] |
|||
[1,1] |
|||
[1,2,1] |
|||
[1,3,3,1] |
|||
[1,4,6,4,1]</lang> |
|||
=={{header|PureBasic}}== |
=={{header|PureBasic}}== |
||