Pascal triangle in https://github.com/Hardtack/Resoup-Java

pascal.resoup

(begin
(define
  (read-int)
	(int (read) Null)
)

(define 
    (! x)
    (if (> x 1)
        (* x (! (- x 1)))
        1
    )
)

(define
    (C n r)
    (/
        (! n)
        (*
            (! r)
            (! (- n r))
        )
    )
)

(define (pascal-n n)
    (begin
        (define
            (f x)
            (if
                (>= x 0)
                (begin
                    (display (C n x))
                    (display ' ')
                    (f (- x 1))
                )
                Null
            )
        )
        (f n)
        (newline)
    )
)

(define (print-white n) (if (> n 0) (begin (display ' ') (print-white (- n 1))) Null))

(define (pascal n)
	(begin
	  	(define (f x)
		    (if
		        (> x 0)
	    	    (begin
	    	        (print-white x)
	        	    (pascal-n (- n (- x 1)))
	            	(f (- x 1))
     	    	)
	        	Null
	    	)
	    )
	    (f n)
	)
)

(display 'Enter : ')

(define N (read-int Null))

(pascal N)
)