Pascal's triangle: Difference between revisions
Content added Content deleted
(add Tcl) |
(→{{header|Perl}}: ++ octave) |
||
Line 517: | Line 517: | ||
else row :: loop (i+1) (next_row row) |
else row :: loop (i+1) (next_row row) |
||
in loop 0 [1]</lang> |
in loop 0 [1]</lang> |
||
=={{header|Octave}}== |
|||
<lang octave>function pascaltriangle(h) |
|||
for i = 0:h-1 |
|||
for k = 0:h-i |
|||
printf(" "); |
|||
endfor |
|||
for j = 0:i |
|||
printf("%d ", bincoeff(i, j)); |
|||
endfor |
|||
printf("\n"); |
|||
endfor |
|||
endfunction |
|||
pascaltriangle(4);</lang> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |