Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]
Groups > comp.lang.forth > #37047
| Path | csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!feeder.erje.net!eu.feeder.erje.net!news.albasani.net!.POSTED!not-for-mail |
|---|---|
| From | Melzzzzz <mel@zzzzz.com> |
| Newsgroups | comp.lang.forth |
| Subject | Re: Pascal's Triangle |
| Date | Fri, 6 Mar 2015 07:32:18 +0100 |
| Organization | albasani.net |
| Lines | 38 |
| Message-ID | <20150306073218.6470ffa4@maxa-pc> (permalink) |
| References | <mdbbd1$271$1@dont-email.me> |
| Mime-Version | 1.0 |
| Content-Type | text/plain; charset=US-ASCII |
| Content-Transfer-Encoding | 7bit |
| X-Trace | news.albasani.net bNZQ9J4cXPd3w2cDv0Ji3ei3A1f13IKo5jwUDC5VkDyBhy57CKhRsd3q8b//eUASqqNITViuOz01PMsHQAAaFA== |
| NNTP-Posting-Date | Fri, 6 Mar 2015 06:32:18 +0000 (UTC) |
| Injection-Info | news.albasani.net; logging-data="S43bIXaAR4fAm7Q1RwUSuTNAALKbGKS4vSXHyEqnYZq1z2gVAr4XR7v02w4RunaeC4QCZ29LF2mm440Uf5/K+Ep0eYXh2vC8Sm52Or+nT+UavVEBvBJ0qjkeCZpCvXE1"; mail-complaints-to="abuse@albasani.net" |
| X-Newsreader | Claws Mail 3.11.1 (GTK+ 2.24.26; x86_64-unknown-linux-gnu) |
| Cancel-Lock | sha1:gniofGIXv8D6kNH7CyP8xbO0W9U= |
| Xref | csiph.com comp.lang.forth:37047 |
Show key headers only | 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
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