Perlについての質問箱 65箱目

**デフォルトの名無しさん** · 2024/04/15(月) 17:29:37.18

ビルドされた環境のCライブラリ依存じゃない？
同じにしたいならMath::Random::MTとか使えばいいんでね

**デフォルトの名無しさん** · 2024/04/16(火) 09:32:57.50

>>104
一般論としてPerlの内部実装は無保証でコロッコロ変わるので、疑似乱数の再現性を担保したいならコードを同梱してしまうのが最も確実

cでたったこれだけ、Perlで詰めれば20行も要らんだろう、局所使用ならファイル内subでいいレベル
github.com/bmurray7/mersenne-twister-examples/blob/master/c-mersenne-twister.c

同階層にpl版もある
丁寧にコードされパッケ化で無意味に冗長なので参考ならこっち
アルゴリズム特許あるか知らんし、ライセンスを許容するなら同梱

**デフォルトの名無しさん** · 2024/04/16(火) 14:14:10.10

print"A\n",print"B\n";

これの動き教えてくれよ
出来ればサンプルソースも

**デフォルトの名無しさん** · 2024/04/16(火) 15:16:06.51

print "A\n", print "B\n";
print("A\n", print("B\n"));
まず最初のprintの引数中のprint("B\n")が評価され"B\n"が出力される
print("B\n")が成功したので真の値1を帰す
print("A\n", 1)となる

B
A
1と表示される

print "X\n", 3 > 0;
print "X\n", 3 < 0;
print "X\n", open(my $fh, "no_such_file.txt");

**デフォルトの名無しさん** · 2024/04/16(火) 15:37:42.78

成る程、() 使わない副作用意識しないとダメですね
ありがとうございます

**デフォルトの名無しさん** · 2024/11/17(日) 20:01:50.35

poetryと同等の仕組みがないときつい

**デフォルトの名無しさん** · 2025/11/10(月) 07:57:26.71

2025年最後の書き込みになるかもしれないから書いておこう

**デフォルトの名無しさん** · 2025/11/16(日) 00:05:37.18

いや、この書き込みが2025年最後だ

という書き込みが延々と続いたりして

**デフォルトの名無しさん** · 2025/11/24(月) 22:48:34.34

とは続かないのがかなしい