novaBBS - comp.lang.forth - Re: Partitioning

Partitioning

<t03lb9$5uv$1@gioia.aioe.org>

https://www.novabbs.com/devel/article-flat.php?id=17049&group=comp.lang.forth#17049

Path: i2pn2.org!i2pn.org!aioe.org!47RQ64UTjUh2iI387N5j1g.user.46.165.242.75.POSTED!not-for-mail
From: No_spamm...@noWhere_7073.org (Robert L.)
Newsgroups: comp.lang.forth
Subject: Partitioning
Date: Mon, 7 Mar 2022 00:58:20 -0000 (UTC)
Organization: Aioe.org NNTP Server
Message-ID: <t03lb9$5uv$1@gioia.aioe.org>
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Injection-Info: gioia.aioe.org; logging-data="6111"; posting-host="47RQ64UTjUh2iI387N5j1g.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: XanaNews/1.18.1.6
X-Notice: Filtered by postfilter v. 0.9.2

by: Robert L. - Mon, 7 Mar 2022 00:58 UTC

Gauche Scheme or Racket:

(use srfi-1) ;; partition for Gauche
or
(require srfi/1) ;; partition for Racket

(partition even? '(8 3 5 2 0 9 6 4))

===>
(8 2 0 6 4)
(3 5 9)

In Forth?

Re: Partitioning

<a46c9cb3-98d1-42e4-9b63-e6d926d1a594n@googlegroups.com>

copy mid

https://www.novabbs.com/devel/article-flat.php?id=17054&group=comp.lang.forth#17054

copy link Newsgroups: comp.lang.forth

X-Received: by 2002:a37:5881:0:b0:649:10c4:60c2 with SMTP id m123-20020a375881000000b0064910c460c2mr5814739qkb.615.1646627016811;
Sun, 06 Mar 2022 20:23:36 -0800 (PST)
X-Received: by 2002:a05:620a:24cd:b0:649:776d:4deb with SMTP id
m13-20020a05620a24cd00b00649776d4debmr5791559qkn.644.1646627016602; Sun, 06
Mar 2022 20:23:36 -0800 (PST)
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!news.misty.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.forth
Date: Sun, 6 Mar 2022 20:23:36 -0800 (PST)
In-Reply-To: <t03lb9$5uv$1@gioia.aioe.org>
Injection-Info: google-groups.googlegroups.com; posting-host=2600:1700:3f7a:20d0:217a:80c4:9224:81d6;
posting-account=V5nGoQoAAAC_P2U0qnxm2kC0s1jNJXJa
NNTP-Posting-Host: 2600:1700:3f7a:20d0:217a:80c4:9224:81d6
References: <t03lb9$5uv$1@gioia.aioe.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <a46c9cb3-98d1-42e4-9b63-e6d926d1a594n@googlegroups.com>
Subject: Re: Partitioning
From: sdwjac...@gmail.com (S Jack)
Injection-Date: Mon, 07 Mar 2022 04:23:36 +0000
Content-Type: text/plain; charset="UTF-8"
Lines: 31

by: S Jack - Mon, 7 Mar 2022 04:23 UTC

On Sunday, March 6, 2022 at 6:58:22 PM UTC-6, Robert L. wrote:
> Gauche Scheme or Racket:
>
> (use srfi-1) ;; partition for Gauche
> or
> (require srfi/1) ;; partition for Racket
>
> (partition even? '(8 3 5 2 0 9 6 4))
>
> ===>
> (8 2 0 6 4)
> (3 5 9)
>
> In Forth?
Subsets by M.L. Gassanenko

: subsets " first" el " second" el " third" el .{} ;

subsets
{ third second first }
{ second first }
{ third first }
{ first }
{ third second }
{ second }
{ third }
{ }

-fin- ok
in Gauche Scheme or Racket ??
--
me

Re: Partitioning

<622666d0$0$703$14726298@news.sunsite.dk>

copy mid

https://www.novabbs.com/devel/article-flat.php?id=17069&group=comp.lang.forth#17069

copy link Newsgroups: comp.lang.forth

Path: i2pn2.org!i2pn.org!usenet.goja.nl.eu.org!dotsrc.org!filter.dotsrc.org!news.dotsrc.org!not-for-mail
Date: Mon, 7 Mar 2022 15:10:53 -0500
MIME-Version: 1.0
User-Agent: Mozilla/5.0 (Macintosh; Intel Mac OS X 10.15; rv:91.0)
Gecko/20100101 Thunderbird/91.6.0
Subject: Re: Partitioning
Content-Language: en-US
Newsgroups: comp.lang.forth
References: <t03lb9$5uv$1@gioia.aioe.org>
From: dhoffman...@gmail.com (Doug Hoffman)
In-Reply-To: <t03lb9$5uv$1@gioia.aioe.org>
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Lines: 24
Message-ID: <622666d0$0$703$14726298@news.sunsite.dk>
Organization: SunSITE.dk - Supporting Open source
NNTP-Posting-Host: b83cf96f.news.sunsite.dk
X-Trace: 1646683856 news.sunsite.dk 703 glidedog@gmail.com/68.55.82.126:58699
X-Complaints-To: staff@sunsite.dk

by: Doug Hoffman - Mon, 7 Mar 2022 20:10 UTC

include FMS2VT

: even? ( n -- f) 2 mod 0= ;

: partition >array >array { input xt a1 a2 -- a1 a2 }
begin
input :each
while
dup xt execute if a1 else a2 then :add
repeat a2 a1 ;

i{ 8 3 5 2 0 9 6 4 } ' even? partition :. cr :.

=>
0 8
1 2
2 0
3 6
4 4

0 3
1 5
2 9 ok

Re: Partitioning

<a19c0d55-5d0a-42ab-8281-86b87c6e4460n@googlegroups.com>

copy mid

https://www.novabbs.com/devel/article-flat.php?id=17095&group=comp.lang.forth#17095

copy link Newsgroups: comp.lang.forth

X-Received: by 2002:a05:622a:309:b0:2dd:53e9:ae80 with SMTP id q9-20020a05622a030900b002dd53e9ae80mr14473538qtw.557.1646759778047;
Tue, 08 Mar 2022 09:16:18 -0800 (PST)
X-Received: by 2002:a05:6214:20ca:b0:435:b611:5a78 with SMTP id
10-20020a05621420ca00b00435b6115a78mr1603439qve.69.1646759777770; Tue, 08 Mar
2022 09:16:17 -0800 (PST)
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!news.misty.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.forth
Date: Tue, 8 Mar 2022 09:16:17 -0800 (PST)
In-Reply-To: <t03lb9$5uv$1@gioia.aioe.org>
Injection-Info: google-groups.googlegroups.com; posting-host=37.33.244.247; posting-account=kiOBZQoAAADFsAs31ZHaefxTuQxv84Wm
NNTP-Posting-Host: 37.33.244.247
References: <t03lb9$5uv$1@gioia.aioe.org>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <a19c0d55-5d0a-42ab-8281-86b87c6e4460n@googlegroups.com>
Subject: Re: Partitioning
From: jali.hei...@gmail.com (Jali Heinonen)
Injection-Date: Tue, 08 Mar 2022 17:16:18 +0000
Content-Type: text/plain; charset="UTF-8"
Lines: 17

by: Jali Heinonen - Tue, 8 Mar 2022 17:16 UTC

maanantai 7. maaliskuuta 2022 klo 2.58.22 UTC+2 Robert L. kirjoitti:
> Gauche Scheme or Racket:
>
> (use srfi-1) ;; partition for Gauche
> or
> (require srfi/1) ;; partition for Racket
>
> (partition even? '(8 3 5 2 0 9 6 4))
>
> ===>
> (8 2 0 6 4)
> (3 5 9)
>
> In Forth?

8th:

[ 8, 3, 5, 2, 0, 9, 6, 4 ] ' n:odd? a:group

Re: Partitioning

<ade3691f-a695-445a-8eff-1f62f59b2fb0n@googlegroups.com>

copy mid

https://www.novabbs.com/devel/article-flat.php?id=17097&group=comp.lang.forth#17097

copy link Newsgroups: comp.lang.forth

X-Received: by 2002:a05:6214:262a:b0:435:6c53:88ca with SMTP id gv10-20020a056214262a00b004356c5388camr13477088qvb.4.1646763647862;
Tue, 08 Mar 2022 10:20:47 -0800 (PST)
X-Received: by 2002:a05:622a:1906:b0:2e0:77a7:16c4 with SMTP id
w6-20020a05622a190600b002e077a716c4mr2124631qtc.119.1646763647478; Tue, 08
Mar 2022 10:20:47 -0800 (PST)
Path: i2pn2.org!i2pn.org!weretis.net!feeder6.news.weretis.net!news.misty.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.forth
Date: Tue, 8 Mar 2022 10:20:47 -0800 (PST)
In-Reply-To: <a19c0d55-5d0a-42ab-8281-86b87c6e4460n@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=82.95.228.79; posting-account=Ebqe4AoAAABfjCRL4ZqOHWv4jv5ZU4Cs
NNTP-Posting-Host: 82.95.228.79
References: <t03lb9$5uv$1@gioia.aioe.org> <a19c0d55-5d0a-42ab-8281-86b87c6e4460n@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ade3691f-a695-445a-8eff-1f62f59b2fb0n@googlegroups.com>
Subject: Re: Partitioning
From: the.beez...@gmail.com (Hans Bezemer)
Injection-Date: Tue, 08 Mar 2022 18:20:47 +0000
Content-Type: text/plain; charset="UTF-8"
Lines: 7

by: Hans Bezemer - Tue, 8 Mar 2022 18:20 UTC

On Tuesday, March 8, 2022 at 6:16:19 PM UTC+1, Jali Heinonen wrote:
> 8th:
>
> [ 8, 3, 5, 2, 0, 9, 6, 4 ] ' n:odd? a:group

Darn, just when the rare occasion arises you want to give a "like", you realize there is no such thing in Usenet!

Hans Bezemer

Re: Partitioning

<t09gqa$2qq$1@dont-email.me>

copy mid

https://www.novabbs.com/devel/article-flat.php?id=17102&group=comp.lang.forth#17102

copy link Newsgroups: comp.lang.forth

Path: i2pn2.org!i2pn.org!eternal-september.org!reader02.eternal-september.org!.POSTED!not-for-mail
From: clf...@8th-dev.com (Ron AARON)
Newsgroups: comp.lang.forth
Subject: Re: Partitioning
Date: Wed, 9 Mar 2022 08:17:45 +0200
Organization: A noiseless patient Spider
Lines: 31
Message-ID: <t09gqa$2qq$1@dont-email.me>
References: <t03lb9$5uv$1@gioia.aioe.org>
<a19c0d55-5d0a-42ab-8281-86b87c6e4460n@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Wed, 9 Mar 2022 06:17:46 -0000 (UTC)
Injection-Info: reader02.eternal-september.org; posting-host="a50fc2837fa4ab9386a59ee0e80d6568";
logging-data="2906"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX18Lki9R3qZE35/e4iXYXiWy"
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101
Thunderbird/91.6.2
Cancel-Lock: sha1:cwgdzTqVWo765MmOkOia0H7a9MI=
In-Reply-To: <a19c0d55-5d0a-42ab-8281-86b87c6e4460n@googlegroups.com>
Content-Language: en-US

by: Ron AARON - Wed, 9 Mar 2022 06:17 UTC

On 08/03/2022 19:16, Jali Heinonen wrote:
> maanantai 7. maaliskuuta 2022 klo 2.58.22 UTC+2 Robert L. kirjoitti:
>> Gauche Scheme or Racket:
>>
>> (use srfi-1) ;; partition for Gauche
>> or
>> (require srfi/1) ;; partition for Racket
>>
>> (partition even? '(8 3 5 2 0 9 6 4))
>>
>> ===>
>> (8 2 0 6 4)
>> (3 5 9)
>>
>> In Forth?
>
> 8th:
>
> [ 8, 3, 5, 2, 0, 9, 6, 4 ] ' n:odd? a:group

Now in 22.02 (releasing today), a:/ also accepts a word, so:

ok> [ 8, 3, 5, 2, 0, 9, 6, 4 ] ( nip n:odd? ) a:/

ok> .s

2 a: 00007f4973fa6a70 1 [3,5,9]
1 a: 00007f4973fa6ac0 1 [8,2,0,6,4]

Re: Partitioning

<t0a2c4$1jl0$1@gioia.aioe.org>

copy mid

https://www.novabbs.com/devel/article-flat.php?id=17105&group=comp.lang.forth#17105

copy link Newsgroups: comp.lang.forth

Path: i2pn2.org!i2pn.org!aioe.org!7AktqsUqy5CCvnKa3S0Dkw.user.46.165.242.75.POSTED!not-for-mail
From: dxfo...@gmail.com (dxforth)
Newsgroups: comp.lang.forth
Subject: Re: Partitioning
Date: Wed, 9 Mar 2022 22:17:24 +1100
Organization: Aioe.org NNTP Server
Message-ID: <t0a2c4$1jl0$1@gioia.aioe.org>
References: <t03lb9$5uv$1@gioia.aioe.org>
<a19c0d55-5d0a-42ab-8281-86b87c6e4460n@googlegroups.com>
<ade3691f-a695-445a-8eff-1f62f59b2fb0n@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 7bit
Injection-Info: gioia.aioe.org; logging-data="52896"; posting-host="7AktqsUqy5CCvnKa3S0Dkw.user.gioia.aioe.org"; mail-complaints-to="abuse@aioe.org";
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:91.0) Gecko/20100101
Thunderbird/91.6.1
Content-Language: en-GB
X-Notice: Filtered by postfilter v. 0.9.2

by: dxforth - Wed, 9 Mar 2022 11:17 UTC

On 9/03/2022 05:20, Hans Bezemer wrote:
> On Tuesday, March 8, 2022 at 6:16:19 PM UTC+1, Jali Heinonen wrote:
>> 8th:
>>
>> [ 8, 3, 5, 2, 0, 9, 6, 4 ] ' n:odd? a:group
>
> Darn, just when the rare occasion arises you want to give a "like", you realize there is no such thing in Usenet!
>
> Hans Bezemer

https://youtu.be/xCc-RWIp7XU

Have you reconsidered a computer career?

devel / comp.lang.forth / Re: Partitioning

Subject	Author
Partitioning	Robert L.
Re: Partitioning	S Jack
Re: Partitioning	Doug Hoffman
Re: Partitioning	Jali Heinonen
Re: Partitioning	Hans Bezemer
Re: Partitioning	dxforth
Re: Partitioning	Ron AARON