Anonymous user
Pascal's triangle: Difference between revisions
→{{header|RapidQ}}: ++ R
(added Ursala) |
(→{{header|RapidQ}}: ++ R) |
||
Line 648:
print " ".join(map(str, last))
return True</lang>
=={{header|R}}==
{{trans|Octave}}
<lang R>pascalTriangle <- function(h) {
for(i in 0:(h-1)) {
s <- ""
for(k in 0:(h-i)) s <- paste(s, " ", sep="")
for(j in 0:i) {
s <- paste(s, sprintf("%3d ", choose(i, j)), sep="")
}
print(s)
}
}</lang>
=={{header|RapidQ}}==
| |||