Skip to content

Instantly share code, notes, and snippets.

@zoffixznet
Created February 16, 2017 13:49
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save zoffixznet/53436c4f001de41dbc748908fbe34355 to your computer and use it in GitHub Desktop.
Save zoffixznet/53436c4f001de41dbc748908fbe34355 to your computer and use it in GitHub Desktop.
<ZoffixW> m: my $c = 0; my @a = 1, {$c++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«True␤0␤((Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any))␤»
<ZoffixW> m: my $c = 0; my @a = 1, {$c++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«True␤0␤((Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any))␤»
<ZoffixW> m: my $c = 0; my @a = 1, {$c++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«True␤0␤((Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any))␤»
<ZoffixW> m: my $c = 0; my @a = 1, {$c++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«Type check failed in binding to <anon>; expected Any but got Mu (Mu)␤ in block <unit> at <tmp> line 1␤␤»
<ZoffixW> m: my $c = 0; my @a = 1, {$c++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«True␤0␤((Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any))␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $c++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«True␤0␤((Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any))␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $c; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤This continuation has already been invoked␤ in block <unit> at <tmp> line 1␤␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $c; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«This continuation has already been invoked␤ in block <unit> at <tmp> line 1␤␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $c; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«True␤0␤((Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any))␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $c; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤0␤This continuation has already been invoked␤ in block <unit> at <tmp> line 1␤␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«True␤0␤((Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any))␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«False␤0␤((Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any))␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«0␤1␤2␤3␤4␤5␤6␤7␤8␤9␤This continuation has already been invoked␤ in block <unit> at <tmp> line 1␤␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«0␤1␤2␤3␤4␤5␤6␤7␤8␤9␤10␤11␤12␤13␤14␤15␤16␤17␤18␤19␤20␤This continuation has already been invoked␤ in block <unit> at <tmp> line 1␤␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«0␤1␤2␤3␤4␤5␤6␤7␤8␤9␤10␤11␤12␤13␤14␤15␤16␤17␤18␤19␤20␤This continuation has already been invoked␤ in block <unit> at <tmp> line 1␤␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«0␤1␤2␤3␤4␤5␤6␤7␤8␤9␤10␤11␤12␤This continuation has already been invoked␤ in block <unit> at <tmp> line 1␤␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«True␤0␤((Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any))␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«False␤0␤((Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any) (Any))␤»
<ZoffixW> m: my $c = 0; my @a = 1, {say $++; rand} ... *; my @b = 1, {rand} ... *; for ^10 -> $i { await (start { $ = @a[^$i] }, start { $ = @b[^$i] })}; say @a[^10] eqv @b[^10]; say $c; say @a[^10]
<camelia> rakudo-moar a62882: OUTPUT«(signal SEGV)»
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment