shuffle実装した

shuffle.jq

def rand_once(seed): (48271 * seed) % 2147483647;
def rand(seed): rand_once(rand_once(rand_once(seed)));
def swap(s): . as $a
    | if s[0] == s[1] then
        .
    else
        if s[0] > s[1] then [s[1], s[0]] else s end
        | .[0] as $x | .[1] as $y
        | $a | [ .[:$x], .[$y], .[$x+1:$y], .[$x], .[$y+1:] ]  | flatten
    end
;

def shuffle(seed): . as $a
    | $a | length as $length
    | [range(0; $length-1)] | reduce .[] as $i ( $a; . as $x | (rand(seed+$i) % $length) as $r | $x | swap([$r,$i] ))
;

usage.jq

import "./shuffle" as S;

["A", "B", "C", "D", "E", "F", "G"] | S::shuffle(now)