Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!wuarchive!texbell!texsun!pollux!ti-csl!m2!gateley
From: gateley@m2.csc.ti.com (John Gateley)
Newsgroups: comp.lang.pascal
Subject: Re: No Obfuscations yet.
Message-ID: <96015@ti-csl.csc.ti.com>
Date: 27 Oct 89 15:30:18 GMT
References: <467@e-street.Morgan.COM>
Sender: news@ti-csl.csc.ti.com
Reply-To: gateley@m2.UUCP (John Gateley)
Organization: TI Computer Science Center, Dallas
Lines: 26

In article <467@e-street.Morgan.COM> amull@Morgan.COM (Andrew P. Mullhaupt) writes:
>Well, I guess nobody knows of any obfuscations worth posting in Pascal.

Here is one: though it is an obfuscation in any language:

Program zz1

function zz2 (x, y, z: integer) : integer;
begin
  if y >= x then
    zz2 := z
  else
    zz2 := zz2(zz2(x-1,y,z),
               zz2(y-1,z,x),
               zz2(z-1,x,y))

end;

begin
...
end.

Please forgive any syntactic errors: I am not a pascal programmer.

John
gateley@m2.csc.ti.com