RosettaCodeData/Task/Pascals-triangle/FOCAL/pascals-triangle.focal

12 lines
176 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
1.1 S OLD(1)=1; T %4.0, 1, !
1.2 F N=1,10; D 2
1.3 Q
2.1 S NEW(1)=1
2.2 F X=1,N; S NEW(X+1)=OLD(X)+OLD(X+1)
2.3 F X=1,N+1; D 3
2.4 T !
3.1 S OLD(X)=NEW(X)
3.2 T %4.0, OLD(X)