On 4/12/2013 11:10 AM, Frank M. Ramaekers wrote: > Like your second solution....just trying to wrap my head around it.
I suppose I could have thrown in a few explanatory comments! I started to, but got distracted by work. >> "PIPE (end ?)", >> " cp QUERY CPOWN", >> "| used: pick substr 1.6 of w2 ¬== /------/", >> "| before: chop 0", /* null record before each filled slot */ >> "| empty: faninany", /* add in empty slot numbers below */ >> "| joincont leading / /", /* join numbers up to each null record */ >> "| locate", /* skip records with no numbers */ >> "| specs w1 1.3 right /-/ n w-1 n.3 right / omitted/ n", >> "| all: faninany", /* add in filled slots */ >> "| cons", >> "? used:", /* empty slots */ >> "| chop 4", /* keep just number and leading blank */ >> "| empty:", /* add to null records above */ >> "? before:", /* filled slots */ >> "| all:" /* add to empty slots above */ ¬R
