Rocksolid Light - comp.lang.postscript

Re: in-place reverse?

<ff73cbfd-5f21-46cb-a504-7896f57e146fn@googlegroups.com>

https://news.novabbs.org/devel/article-flat.php?id=408&group=comp.lang.postscript#408

copy link Newsgroups: comp.lang.postscript

X-Received: by 2002:a37:de07:0:b0:6b5:56d1:140f with SMTP id h7-20020a37de07000000b006b556d1140fmr22219244qkj.114.1660162268262;
Wed, 10 Aug 2022 13:11:08 -0700 (PDT)
X-Received: by 2002:a05:6870:ea84:b0:10d:fabe:9202 with SMTP id
s4-20020a056870ea8400b0010dfabe9202mr2185107oap.294.1660162267983; Wed, 10
Aug 2022 13:11:07 -0700 (PDT)
Path: i2pn2.org!i2pn.org!usenet.blueworldhosting.com!feed1.usenet.blueworldhosting.com!peer02.iad!feed-me.highwinds-media.com!news.highwinds-media.com!news-out.google.com!nntp.google.com!postnews.google.com!google-groups.googlegroups.com!not-for-mail
Newsgroups: comp.lang.postscript
Date: Wed, 10 Aug 2022 13:11:07 -0700 (PDT)
In-Reply-To: <453841db-0109-45bb-a73d-836d3863009bn@googlegroups.com>
Injection-Info: google-groups.googlegroups.com; posting-host=185.176.160.84; posting-account=Cp97SgoAAAC0t1Gya5PaPqyoafMoOtAn
NNTP-Posting-Host: 185.176.160.84
References: <d9c46408-0992-4b61-a35e-85be12aa3b70n@googlegroups.com>
<61ea86a5$1@news.ausics.net> <453841db-0109-45bb-a73d-836d3863009bn@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <ff73cbfd-5f21-46cb-a504-7896f57e146fn@googlegroups.com>
Subject: Re: in-place reverse?
From: jdawiseman@gmail.com (jdaw1)
Injection-Date: Wed, 10 Aug 2022 20:11:08 +0000
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable
X-Received-Bytes: 2200

by: jdaw1 - Wed, 10 Aug 2022 20:11 UTC

%!PS

/StackReverse {-1 2 {1 roll} for} bind def

/ArrayReverse
{     1 dict begin dup dup xcheck exch cvlit /arr exch def
    0 1 arr length 2 sub 2 idiv
    {
        dup arr exch 2 copy get 4 -1 roll
        arr length 1 sub exch sub arr exch 2 copy get
        4 1 roll 3 -1 roll put put
    } for
    {cvx} if
} bind def % /ArrayReverse

mark (A) (B) (C) (D) (E) (F) (G)
7 StackReverse
(\n\n+pstack) = pstack (-pstack\n\n)
cleartomark

{ (1) (2) } ArrayReverse =() [] ArrayReverse =() [ (1) (2) (3) (4) (5) (6) (7) ] ArrayReverse =() [ (1) (2) (3) (4) (5) (6) (7) (8) ] ArrayReverse =
(\n\n+pstack) = pstack (-pstack\n\n)

Subject	Author
in-place reverse?	jdaw1

You can be replaced by this computer.

devel / comp.lang.postscript / Re: in-place reverse?