Newsgroups: comp.lang.apl
Path: watmath!watdragon!jeeves.waterloo.edu!jmlang
From: jmlang@jeeves.waterloo.edu (Je'ro^me M. Lang)
Subject: a puzzle for j'ers
Message-ID: <1992Apr5.014909.750@watdragon.waterloo.edu>
Sender: news@watdragon.waterloo.edu (USENET News System)
Organization: University of Waterloo
Date: Sun, 5 Apr 1992 01:49:09 GMT
Lines: 16

Hi everybody,

Here's something I cooked up in J, then converted to "mumble"-mode.
I thought it could be neat to offer it as a puzzle.
So, what do you think this does:
-----------------------------------------------------------

mystery=.(((]+ 1&|.+_1&|.)("@[.)1-])@])(((3&=)@[)+((2&=)@[)*.])]

------------------------------------------------------------
Sure beats obfuscated-c contests anytime.

For bonus marks, is there a shorter expression that does the same thing?

Enjoy
Je'ro^me
