Rosetta Code

Pascal's triangle: Difference between revisions

Page Discussion

Pascal's triangle (view source)

Revision as of 00:52, 25 June 2008

17 bytes removed ,  16 years ago
→‎{{header|Forth}}: shorter
(Forth)
Line 111:
cr here swap 0 do dup @ . cell+ loop drop ;
: next ( n -- )
here @swap 1- cells here + do
swap 1 ?doi @ i cell+ +!
i-1 cells here +loop @ swap;
i cells here + +!
loop drop ;
: pascal ( n -- )
dup init 1 .line
1+ 2 ?do i next i 1+ .line loop ;
 
=={{header|Fortran}}==
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/74704"