ルモーリン @lemorin@fedibird.com

今月の見込み金額推移、中旬終わって6000円ちょい（笑）。

さやかちゃん大好きだー（がばっ）

ラオウ様大好きだー（が…し、失礼しました💦）
10時間打ってボーダー＋１．９回転／千円

レイちゃん大好きだー（がばっ）

月末知りたいケースはあると思ったら関数あった。

よし。

my $today = DateTime->now(time_zone => "local")->truncate(to => "month");
my @ month_lastday_do_not_31 = grep {31 != $today->clone->set_month($_)->add(days => 30)->day} (1 .. 12);
say @ month_lastday_do_not_31;

246911
末尾の11→十一→士→侍（さむらい）

レイちゃん大好きだー（がばっ)
※１万８千円分打って回転率ボーダー＋１．１

１万２千円打ってボーダー－０．５でヤメ。
バラエティで持ち玉ボーダー－１．０以上あるのはホールが頑張ってるなあと思う。
大体パラエティなら－３．０は普通なのよ。

こちらがリザルト画面です（嘘は言ってない）。

まさかなあと思って翌日も打ってみると４時間でボーダー＋１．１（　д　）°　°
より開いてる！？
もう訳がわからないよ(´・ω・｀)

レキちゃんネモちゃん大好きだー（両手に花）
サブからバラエティへ移動、当然１台に減台、なのに移動初日に釘が開く。
５時間打ってボーダー＋０．６でした。サブの時よりも回ってる（どゆこと）。

こっちでない。

ウジマサさん大好きだー（がばっ)

レイちゃん大好きだー（がばっ）

無名サブルーチンの引数でシャッフルさせといて仮引数のエイリアスで渡せば配列宣言いらないチートを思い付いた。

$" = "";
sub {
say "@ _[0 .. 1]@ _[0 .. 1]の$_[2]ー$_[3]ー入れました。";
} -> (map {/(.)$/} sort map {rand . $_} qw/ ア ツ コ ヒ /);

これは手強い…（ぱたり）。

#!/usr/bin/env perl

use v5.28;
use utf8;
use warnings;
use strict;

use Encode::Locale;

use feature "say";
use open IO => ":utf8";

binmode STDOUT, ":encoding(console_out)";
binmode STDERR, ":encoding(console_out)";

$| = 1;

my @ a = map {/(.)$/} sort map {rand . $_} qw/ ア ツ コ ヒ /;
$" = "";
say "@ a[0 .. 1]@ a[0 .. 1]の$a[2]ー$a[3]ー入れました。";

ああん、タブッターで「自分のポストに返信（スレッド？）」するとポストの中に自分のアドレス入れちゃってる(´・ω・｀)
画像1枚目がタブッターで返信、2枚目はFedibirdのWebから返信

そして今日、ガックンなしで高設定示唆（強）。

尊い❤
※高設定示唆（極）

なんかすまんかった💦
銀トロフィーだから設定３（機械割１００．５％）で打てば打つほど勝てるハズなのに。