From 4b772db7b36abc597d17d2c994227b5c032323ae Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 29 Dec 2020 00:26:21 -0800 Subject: shuffle/nshuffle: take optional random state argument. * eval.c (eval_init): Register shuffle and nshuffle as two-argument functions with optional argument. * lib.c (nshuffle): Take random-state argument, defaulting to value of random_state special variable. (shuffle): Take random-state argument, pass down to nshuffle. * lib.h (shuffle, nshuffle): Declarations updated. * txr.1: Updated. --- txr.1 | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'txr.1') diff --git a/txr.1 b/txr.1 index e287c8bb..1829471c 100644 --- a/txr.1 +++ b/txr.1 @@ -33727,8 +33727,8 @@ in the APL language. .coNP Functions @ shuffle and @ nshuffle .synb -.mets (shuffle << sequence ) -.mets (nshuffle << sequence ) +.mets (shuffle < sequence <> [ random-state ]) +.mets (nshuffle < sequence <> [ random-state ]) .syne .desc The @@ -33745,7 +33745,9 @@ itself. The rearrangement depends on pseudo-random numbers obtained from the .code rand -function. +function. The +.meta random-state +argument, if present, is passed to that function. The .code nshuffle -- cgit v1.2.3