Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.lang.forth > #37047

Re: Pascal's Triangle

Show all headers | View raw

On Fri, 6 Mar 2015 04:45:22 +0000 (UTC)
"WJ" <w_a_x_man@yahoo.com> wrote:

> Print the first 16 rows of Pascal's Triangle.
> 
> Gauche Scheme:
> 
> (let1 row '(1)
>   (dotimes (16)
>     (print ((#/.(.*)./ (x->string row)) 1))
>     (set! row (map + (cons 0 row) `(,@row 0)))))
> 
> 1
> 1 1
> 1 2 1
> 1 3 3 1
> 1 4 6 4 1
> 1 5 10 10 5 1
> 1 6 15 20 15 6 1
> 1 7 21 35 35 21 7 1
> 1 8 28 56 70 56 28 8 1
> 1 9 36 84 126 126 84 36 9 1
> 1 10 45 120 210 252 210 120 45 10 1
> 1 11 55 165 330 462 462 330 165 55 11 1
> 1 12 66 220 495 792 924 792 495 220 66 12 1
> 1 13 78 286 715 1287 1716 1716 1287 715 286 78 13 1
> 1 14 91 364 1001 2002 3003 3432 3003 2002 1001 364 91 14 1
> 1 15 105 455 1365 3003 5005 6435 6435 5005 3003 1365 455 105 15 1
> 
> Let's see a shorter Forth version.
Nim :

for i in 0..16 :
  var x = 1
  for k in 0..i :
    write (stdout,x,' ')
    x = x * (i - k) div (k + 1)
  write (stdout,'\l')

Back to comp.lang.forth | Previous | Next — Previous in thread | Next in thread | Find similar | Unroll thread

Thread

Pascal's Triangle "WJ" <w_a_x_man@yahoo.com> - 2015-03-06 04:45 +0000
  Re: Pascal's Triangle Melzzzzz <mel@zzzzz.com> - 2015-03-06 07:32 +0100
    Re: Pascal's Triangle Richard Todd <richard.wesley.todd@gmail.com> - 2015-03-05 22:59 -0800
  Re: Pascal's Triangle november.nihal@gmail.com - 2015-03-06 02:24 -0800
    Re: Pascal's Triangle Gerry Jackson <gerry@jackson9000.fsnet.co.uk> - 2015-03-06 22:30 +0000
  Re: Pascal's Triangle franck.bensusan@gmail.com - 2015-03-06 04:48 -0800
  Re: Pascal's Triangle Ron Aaron <rambamist@gmail.com> - 2015-03-06 15:15 +0200
  Re: Pascal's Triangle "WJ" <w_a_x_man@yahoo.com> - 2015-03-19 05:14 +0000

csiph-web