如何连续生成随机负整数和正整数的文件？

Question

我想要一个随机生成的正或负序列整数的文件。 目前，我要求文件包含大致（不需要保证）相同数量的负数和正数，但以后可以轻松更改比例。 我所说的“串行”是指第 k 个随机负数等于 -k，第 k 个随机正数等于 +k。

这个 GNU Bash 脚本单行脚本将满足文件格式，但不会是随机。

$ seq -1 -1 -5 && seq 1 5
-1
-2
-3
-4
-5
1
2
3
4
5

这个例子显示了我正在寻找的更好的东西，但仍然不是随机的，因为整数可预测地在负数和正数之间交替。

$ paste <(seq -1 -1 -5) <(seq 1 5) | tr '\t' '\n'
-1
1
-2
2
-3
3
-4
4
-5
5

通过 shuf 命令发送其中之一会使它们随机为负或正，但它们会失去串行性。

$ paste <(seq -1 -1 -5) <(seq 1 5) | tr '\t' '\n' | shuf
-5
4
3
2
-2
1
-1
-4
5
-3

注意：我正在尝试测试对位列表/数组（零和一）进行排序的算法，但如果我使用 0 和 1，我将无法分析排序的行为或判断是否保留了稳定性。

Answer 1

如果我理解正确的话，你想随机交错正整数和负整数。 例如：1 2 -1 3 -2 4 5- 3。

my $count = 10;
my $pos   =  1;
my $neg   = -1;

my @random = map { 
    int(rand 2) 
    ? $pos++ 
    : $neg--
} 1..$count; 

print "@random\n";

---

更新：

要更改比例，我会这样做：

use strict;
use warnings;

my $next = get_list_generator(.5);

my @random = map $next->(), 1..10; 
print "@random\n";

my $again = get_list_generator(.25);

my @another = map $again->(), 1..10; 
print "@another\n";

sub get_list_generator {
    my $prob_positive = shift;

    my $pos = 1;
    my $neg = -1;

    return sub {
        return rand() <= $prob_positive ? scalar $pos++ : scalar $neg--;
    }

}

get_list_generator()函数返回一个闭包。 这样你甚至可以同时运行多个列表生成器。

Answer 2

我们开始高尔夫比赛吧？ (44)

perl -le'print rand>.5?++$a:--$b for 1..10'

编辑：daotoad的 40个字符版本

seq 1 10|perl -ple'$_=rand>.5?++$a:--$b'

Answer 3

其中 15 是生成的数字总数，tp 是您想要的正数数量（有效表示正数/负数的比率）：

tp=8
unset p n
for i in $(printf '%s\n' {1..15} | gsort -R); do
    (( i <= tp )) && \
        echo $((++p)) || \
        echo $((--n))
done

Answer 4

#!/bin/bash

pos=0 neg=0
for i in {1..10}
do 
    if (( ($RANDOM > 16384 ? ++pos : --neg) > 0 ))
    then echo $pos
    else echo $neg
    fi
done

我无法将其完全融入到一句台词中。 还有谁？

编辑：啊，单行，65 个字符（如果您在同一个 shell 中重复调用它，则需要设置 a 和 b）：

a=0 b=0;for i in {1..10}; do echo $(($RANDOM>16384?++a:--b));done

Answer 5

这是受 lhunath 和 Brian 的答案启发的 Bash 俏皮话（2？）。

RANDOM=$; pos=1; neg=-1; for i in {1..10}; do \
echo $(( $(echo $RANDOM / 32767 \> 0.5 | bc -l) ? pos++ : neg-- )); done

这是参加高尔夫比赛 (44) 的 Awk 脚本。

seq 1 10|awk '{print(rand()>0.5?++p:--n);}'

这是更清晰的惯用方式：

seq 1 10 | awk 'BEGIN{srand(); pos=1; neg=-1;}
                {print (rand() > 0.5 ? pos++ : neg--);}'

Answer 6

没有一组数字可以满足您的所有标准。 你不能说你想要随机，但同时又说第 k 个负值 == -k 和第 k 个正值 == k。 你可以选择随机，也可以不选择。

至于您想要做什么，为什么不将这两个问题分开并在诸如长度为 n 的整数对数组之类的东西上测试排序。 其中第一个可以是 0 或 1，第二个将是您的稳定性跟踪器（只是从 0 到 n 的计数）。

生成所需的 0 和 1 列表，对它们进行混洗，然后添加到跟踪器整数上。 现在按第一个元素对这些对进行排序。

您的排序的输入将如下所示。

0, 1
1, 2
0, 3
1, 4
1, 5
0, 6
0, 7
1, 8
1, 9
1, 10
0, 11
0, 12
0, 13

稳定排序会产生这种情况，

0, 1
0, 3
0, 6
0, 7
0, 11
0, 12
0, 13
1, 2
1, 4
1, 5
1, 8
1, 9
1, 10

不稳定排序会产生 0 和 1，且跟踪器整数无序。