Path: utzoo!utgpu!news-server.csri.toronto.edu!rpi!dali.cs.montana.edu!uakari.primate.wisc.edu!caen!news.cs.indiana.edu!nstn.ns.ca!uupsi!kepler1!rjfrey
From: rjfrey@kepler.com (Robert J Frey)
Newsgroups: comp.lang.apl
Subject: Sorting Columns
Message-ID: <569@kepler1.kepler.com>
Date: 29 Apr 91 11:26:49 GMT
Organization: Kepler Financial Mgmt., Setuket, NY
Lines: 17

My original response to this problem dealt with sorting the columns as units,
rather than sorting each column interally. Here is a function which solves 
the latter in Dyalog APL:

[0]	R assign COLUMN_GRADE X
[1]	R assign gradedown foreach X assign split[quadIO] X
[3]	R assign transpose mix R(disclose foreach compose enclose) foreach X

where split is up-arrow, mix is down-arrow and compose is jot. The idiom

	(disclose foreach compose enclose)

approximates indexing as a function.

Regards,

Robert