Pascal's triangle: Difference between revisions
→{{header|Forth}}: Added more efficient code
m (moved Pascal's Triangle to Pascal's triangle) |
(→{{header|Forth}}: Added more efficient code) |
||
Line 386:
dup init 1 .line
1 ?do i next i 1+ .line loop ;</lang>
This is a bit more efficient:
<lang forth>: PascTriangle
cr dup 0
?do
1 over 1- i - 2* spaces i 1+ 0 ?do dup 4 .r j i - * i 1+ / loop cr drop
loop drop
;
13 PascTriangle</lang>
=={{header|Fortran}}==
| |||