//cd c:\JavaTry2005\Pascal
//javac Pascal10.java -Xlint:unchecked
//javac Pascal10

import java.util.*;

public class Pascal10  {
   public static void main(String[] args) {
      final int NMAX = 15;
      ArrayList alt = new ArrayList();    
      alt.add(0,new Integer(1));   //Integerをいれる
      ArrayList alt1 = new ArrayList(); 
      ArrayList alt2 = new ArrayList();   
      for (int i = 0; i < NMAX; i++) {
         System.out.println("alt=" + alt);
         alt1=(ArrayList)alt.clone();
         alt2=(ArrayList)alt.clone();
         alt1 = fput(new Integer(0),alt1);
         alt2 = lput(new Integer(0),alt2);
         alt=pascal20(alt1,alt2);
      }
   }

   public static ArrayList pascal20(ArrayList nl1,ArrayList nl2) {
	if (nl1.isEmpty()) return nl1; 
        Integer n1=(Integer)nl1.get(0);                       
        Integer n2=(Integer)nl2.get(0);                       
        int f =  n1.intValue()+ n2.intValue();
        return fput (new Integer(f),pascal20(bf(nl1),bf(nl2)));
   }

      public static ArrayList bf (Object a1) {
	   //リストa1の最初の要素を取り去る。
   	     ArrayList aa = (ArrayList)a1;
             aa.remove(0);
             return aa;
       } 

       public static ArrayList fput (Object a1,Object a2) {
	   //リストa1の最初にa1を追加する
    	     ArrayList aa = (ArrayList)a2;
             aa.add(0,a1);
             return aa;
       }

       public static ArrayList lput (Object a1,Object a2) {
	   //リストa1の最後にa1を追加する
    	     ArrayList aa = (ArrayList)a2;
             aa.add(a1);
             return aa;
       }
}
 
/*
C:\JavaTry2005\Pascal>javac Pascal10.java -Xlint:unchecked
Pascal10.java:26: 警告: [unchecked] raw 型 java.util.ArrayList のメンバとしての
add(int,E) への無検査呼び出しです。
      alt.add(0,new Integer(1));
             ^
警告 3 個

C:\JavaTry2005\Pascal>java Pascal10
alt=[1]
alt=[1, 1]
alt=[1, 2, 1]
alt=[1, 3, 3, 1]
alt=[1, 4, 6, 4, 1]
alt=[1, 5, 10, 10, 5, 1]
alt=[1, 6, 15, 20, 15, 6, 1]
alt=[1, 7, 21, 35, 35, 21, 7, 1]
alt=[1, 8, 28, 56, 70, 56, 28, 8, 1]
alt=[1, 9, 36, 84, 126, 126, 84, 36, 9, 1]
alt=[1, 10, 45, 120, 210, 252, 210, 120, 45, 10, 1]
alt=[1, 11, 55, 165, 330, 462, 462, 330, 165, 55, 11, 1]
alt=[1, 12, 66, 220, 495, 792, 924, 792, 495, 220, 66, 12, 1]
alt=[1, 13, 78, 286, 715, 1287, 1716, 1716, 1287, 715, 286, 78, 13, 1]
alt=[1, 14, 91, 364, 1001, 2002, 3003, 3432, 3003, 2002, 1001, 364, 91, 14, 1]

TO START
 CG PU SETPOS [-50 130] SETC 3 LABEL [パスカルの三角形]
 SETC 4 MAKE "X 0 MAKE "Y 110 
 PASCAL [1]
END

TO PASCAL :NL
 IF (COUNT :NL) = 14 [音 STOP]
 三角形を描く :NL
 MAKE "NL1 FPUT 0 :NL
 MAKE "NL2 LPUT 0 :NL
 MAKE "NL  PASCAL1 :NL1 :NL2 
 PASCAL :NL
END

TO PASCAL1 :NL1 :NL2
 IF :NL1 = [ ] [OP [ ]]
 OP FPUT (FIRST :NL1) + (FIRST :NL2) 
    PASCAL1 BF :NL1 BF :NL2  
END
TO 三角形を描く :NL
 PU SETPOS LIST :X :Y 
 REPEAT COUNT :NL 
  [LABEL FIRST :NL RT 90 FD 35 LT 90 MAKE "NL  BF :NL]
 WAIT 50 
 MAKE "X :X - 20 MAKE "Y :Y - 20
END

TO TITLE :MOJI
 IF EMPTY? :MOJI [STOP]
 SETSH FIRST :MOJI
 PD BIGSTAMP [2 2] PU RT 90 FD 35 LT 90 TITLE BF :MOJI
END

TO 音
 TONE 1000 2 TONE 900 2 TONE 800 2
END

  PR [この関係をロゴでプログラムする場合は、一つ上の列の左に0 を加えたリストと]
  PR [右に0 を加えたリスト（下図のPASCAL中のNL1 とNL2)を作り、]
  PR [それぞれの項の和をとって新しい列とします（この役割はPASCAL1)。]
  PR [そしてそれをPASCALの中で再帰して次々に新しい列を求めていきます。]

  PR [例  (a + b)^3 の図解]
  PR [(a + b)^2 の係数列　:NL = ［1 2 1 ]]
  PR [:NL1 =［0 1 2 1］]
  PR [:NL2 =［1 2 1 0］]
　PR [(a + b)^3 の係数列  :NL = ［1 3 3 1]]
  PR [これが新しい列、3乗のときの「パスカルの三角形」の要素になります。]
  PR [ ] WAIT 300 SETTC 4 
  PR [別途、作成したやや本格的な数式処理( 多項式展開、微分) のプログラムからの]
  PR [出力例で (A + B)^10 の多項式展開を示しておきます。] 
  PR [(上の図の下から３行目と較べてください）。]
  PR [ ] WAIT 300 
  PR [A^10 + 10A^9B + 45A^8B^2 + 120A^7B^3 + 210A^6B^4 + 252A^5B^5]
  PR [           + 210A^4B^6 + 120A^3B^7 + 45A^2B^8 + 10AB^9 + B^10]   
END
*/