tasks a-s

2013-04-10 23:57:08 -07:00 · 2013-04-10 23:57:08 -07:00 · b83f433714
commit b83f433714
parent 47bf37c096
12433 changed files with 156208 additions and 123 deletions
--- a/Task/Pascals-triangle/IDL/pascals-triangle.idl
+++ b/Task/Pascals-triangle/IDL/pascals-triangle.idl
@ -0,0 +1,17 @@
+Pro Pascal, n
+;n is the number of lines of the triangle to be displayed
+ r=[1]
+ print, r
+  for i=0, (n-2) do begin
+    pascalrow,r
+  endfor
+End
+
+Pro PascalRow, r
+  for i=0,(n_elements(r)-2) do begin
+    r[i]=r[i]+r[i+1]
+  endfor
+r= [1, r]
+print, r
+
+End