Massaging output of 50g's FACTORS command

[Gilles]

I wondered if it was possible to split a list with only one DOSUBS and found this way :

Code:

1. « NSUB 1. == {{}{} ROT} IFT + SWAP » DOSUBS

{"a" "b" "c" "d" "e" "f" "g" "h" }
->
{ { "b" "d" "f" "h" } { "a" "c" "e" "g" } }

And to get the result in right order both with odd or even number of elements in the list

Code:


1. « NSUB 1. == {{}{} ROT} IFT + SWAP
     IF 'NSUB==ENDSUB AND NOT(NSUB MOD 2)' THEN SWAP END  » DOSUBS