#triangolo di Tartaglia
#
n<-0
k<-4
sapply(n:k, function(n) sapply(0:n, function(k) choose(n, k)))
#
# alt.compressed format
sapply(0:4, function(n) sapply(0:n, function(k) choose(n, k)))

[1] 	    1
[1] 	   1 1
[1] 	  1 2 1
[1] 	 1 3 3 1
[1] 	1 4 6 4 1
[1]   1 5 10 10 5 1

# il singolo elemento ci dice quanti sono i casi favorevoli (10)

# la somma degli elementi della riga ci dice quanti sono i casi totali (1+5+10+10+5+1 = 32)