プログラミングのお題スレ Part18

**デフォルトの名無しさん** · 2020/07/14(火) 13:53:46.47

プログラミングのお題スレです。

【出題と回答例】
1 名前：デフォルトの名無しさん
　　お題：お題本文

2 名前：デフォルトの名無しさん
　　>>1 使用言語
　　回答本文
　　結果がある場合はそれも

【ソースコードが長くなったら】 (オンラインでコードを実行できる)
https://ideone.com/
http://codepad.org/
http://compileonline.com/
http://rextester.com/runcode
https://runnable.com/
https://code.hackerearth.com/
http://melpon.org/wandbox
https://paiza.io/

宿題は宿題スレがあるのでそちらへ。

※前スレ
プログラミングのお題スレ Part17
https://mevius.5ch.net/test/read.cgi/tech/1584031367/

**デフォルトの名無しさん** · 2020/10/17(土) 01:58:38.41

>>695 Ruby
n = 20201016
nl = 0
while n > 0
nl = ((nc = (n.odd?)? nc + 1 : 0) > nl)? nc : nl
n >>= 1
end
puts nl

**デフォルトの名無しさん** · 2020/10/17(土) 01:59:32.64

>>702
125の時1になった

**デフォルトの名無しさん** · 2020/10/17(土) 02:41:53.51

これだからQZ

◆QZaw55cn4c · 2020/10/17(土) 02:53:09.41

>>695
C++: https://ideone.com/7H5HBx

>>702 にはロジックに欠陥がありました

>>704
ご指摘ありがとうございます。

**703** · 2020/10/17(土) 09:22:46.57

>>704
自分の >>703 も
- nl = 0
+ nc = nl = 0

**デフォルトの名無しさん** · 2020/10/17(土) 12:19:37.13

>>695 C++
https://wandbox.org/permlink/udZVzwy6pQKbcPa5

**デフォルトの名無しさん** · 2020/10/17(土) 13:46:27.15

>>695 C
https://ideone.com/DwvfL2

**デフォルトの名無しさん** · 2020/10/17(土) 18:57:16.23

>>695 Ruby
n = 20201016
i = 0
while n != 0
n &= n << 1
i += 1
end
puts i

**デフォルトの名無しさん** · 2020/10/17(土) 19:11:03.54

>>710
うまいやり方だな。それには気付かなかった。

**デフォルトの名無しさん** · 2020/10/17(土) 19:29:10.40

>>695
Kotlin script

2進数文字列に変換してから 0 を区切り文字にして分割してその中の一番長い文字列の長さを出すというやり方。

fun max1(n: Int) = n.toString(2).split('0').map { it.length }.max()

println(max1(20201016))

これで 5 が出る。

同じやり方を perl5 で(特にモジュール使わずに)やるとこんな感じ。

perl -e '$n=20201016; $m = (sort { $b <=> $a } map { length($_) } (split /0+/, sprintf("%b", $n)))[0]; print "$m\n"'

同じく5が出る。

**デフォルトの名無しさん** · 2020/10/17(土) 20:05:12.33

>>695 JavaScript

let num = 20201016
let ans = num.toString(2).split`0`.sort().pop().length

console.log(ans) //=> 5

**デフォルトの名無しさん** · 2020/10/17(土) 20:50:55.84

>>695 octave
https://ideone.com/dO1WZp
f = @(n) max(cellfun(@numel, strsplit(dec2bin(n), '0')));
f(20201016)

**デフォルトの名無しさん** · 2020/10/17(土) 20:54:06.81

>>695
Perl
https://paiza.io/projects/VO9_CFHPOVbO5iI8uDc__A

**デフォルトの名無しさん** · 2020/10/17(土) 23:22:21.08

いつもRubyの人からなにかしら学ぶことがある

**デフォルトの名無しさん** · 2020/10/18(日) 00:42:32.49

ハトにエサを与えないで下さい

**デフォルトの名無しさん** · 2020/10/18(日) 01:06:12.01

QZは自分の頭が悪いのをわざわざ周知してもらうためにクソコードを晒すのか
ドMだな

**デフォルトの名無しさん** · 2020/10/18(日) 03:42:01.18

>>710
なるほどな、感心した
n>>1でもいいわけだな

**デフォルトの名無しさん** · 2020/10/18(日) 04:21:53.35

>>700 のほうが速いと思うが

**デフォルトの名無しさん** · 2020/10/18(日) 04:36:21.54

rubyよく分からないけど>>710の方が100倍くらいは速そうに思える

**デフォルトの名無しさん** · 2020/10/18(日) 05:53:44.51

うん。速そうだね。数値計算しかしてないし。

**デフォルトの名無しさん** · 2020/10/18(日) 10:06:25.57

20201016みたいに桁数が少ないならそうだけど桁数が増えるとルーブが答え×桁数回だからアルゴリズムそのものは遅い
桁数が少ないうちは内部関数しか使ってない利点で早いとは思うけど

**デフォルトの名無しさん** · 2020/10/18(日) 12:07:22.14

>>723

>>700,710 をベンチマークで比較してみた
https://ideone.com/t0ZYLg
https://ideone.com/DUEWmC
20201016 では 5~6倍
巨大な数だと 7000倍以上

◆QZaw55cn4c · 2020/10/18(日) 15:53:00.51

>>693
残念ながら、私の出題もイマイチ人気がありませんでした‥‥

**デフォルトの名無しさん** · 2020/10/18(日) 21:20:25.30

>>685
Java
https://paiza.io/projects/frlfP3US1doeAO_HZBnLWQ

**デフォルトの名無しさん** · 2020/10/18(日) 21:43:52.67

>>669
Java
https://paiza.io/projects/0xfQrdW_qpJoUbOO6ux6wg

**デフォルトの名無しさん** · 2020/10/18(日) 22:06:12.69

>>667
Java
https://paiza.io/projects/x3j0kbjqsSoVGNJX5qun2g

**デフォルトの名無しさん** · 2020/10/18(日) 22:14:01.64

>>695
Java
https://paiza.io/projects/Eo4-fSXmdnoqjyHOMsi92Q

**デフォルトの名無しさん** · 2020/10/18(日) 22:45:56.62

>>724
x = n
while x != 0
x &= x << 1
i += 1
end
ruby知らないから適当に書いたけど
こんな感じにしないと二回目以降nが0でやってるっぽい
こうすると22倍くらいの差だった

**デフォルトの名無しさん** · 2020/10/18(日) 22:54:22.98

連続してるビット数が多いときはこの方が速くなったけど
すごいごちゃごちゃになった

i = 0
s = 1
x = n
while x != 0
t = x & (x << s)
if t == 0 then
if s == 1 then
i += 1
break
end
s = 1
else
x = t
i += s
s = (s << 1)
end
end

**デフォルトの名無しさん** · 2020/10/18(日) 22:56:30.98

>>724
GJ

**デフォルトの名無しさん** · 2020/10/19(月) 06:30:07.92

>>695
echo "obase=2; 20201016" | bc | sed 's/./&\n/g' | uniq -c | perl -lane 'if ($M < $F[0]) {$M = $F[0]}; END{print $M}'
5

**724** · 2020/10/19(月) 15:26:08.35

>>730
ご指摘の通りでした
https://ideone.com/DUEWmC
を修正しました

>>710 は 1の連続が多いと弱いですね

**デフォルトの名無しさん** · 2020/10/19(月) 17:41:48.20

お題
2^(1/3)を百桁表示せよ

出力
1.2599210498948731647672106072782283505702514647015079800819751121552996765139594837293965624362550941543102560356156652593990240

参考　
a(n+3) = 3*a(n+2) + 3*a(n+1) + an
a(1) = 3, a(2)=3, a(3)=15
で決まる数列について
min (a(n)/a(n+1), a(n+1)/a(n+2), a(n+3)/a(n+3) )
. < 2^(1/3)-1
. max (a(n)/a(n+1), a(n+1)/a(n+2), a(n+2)/a(n+3) )
で lim a(n)/a(n+1) = 2^(1/3)-1となる

**デフォルトの名無しさん** · 2020/10/19(月) 21:36:44.38

>>733
echo "obase=2; 20201016" | bc | sed 's/0\+/\n/g' | wc -L
でよくね？

**デフォルトの名無しさん** · 2020/10/19(月) 22:00:17.27

>>735 Bash

$ echo "scale=100;e(l(2) / 3)" | bc -l
1.25992104989487316476721060727822835057025146470150
79800819751121552996765139594837293965624362550940

**デフォルトの名無しさん** · 2020/10/19(月) 22:30:56.87

>>735 dc
dcには平方根の演算子はあるが立方根はないので
c^(1/3) = sqrt(c/sqrt(c/sqrt(c/...)))
と変形して適当に反復

100k[2z333>av/]dsaxp

1.2599210498948731647672106072782283505702514647015079800819751121552\
996765139594837293965624362550941

**デフォルトの名無しさん** · 2020/10/19(月) 23:54:32.40

>>735
参考を誰も参考にしてくれないのにワロタ
参考を元に作ったコード
Haskell

https://ideone.com/ywJPjx

ちなみにrubyのpi.rbが同じテクニック使ってます
そっちは定数係数でない三項間関係の漸化式パージョン

**デフォルトの名無しさん** · 2020/10/20(火) 02:36:31.61

>>736
たしかに

**デフォルトの名無しさん** · 2020/10/20(火) 04:08:13.14

おっせえじゃん

**デフォルトの名無しさん** · 2020/10/20(火) 21:07:35.93

お題：ぼくがかんがえたさいきょうのちょうわへいきん
2変数調和平均 f(x, y) = 2 / (1 / x + 1 / y)
但し xまたはyがゼロの時、f(x, y) == 0
の計算を考える。
Cのdoubleに相当する精度で計算する際に、理論値(≒多倍長精度で計算したものを
double相当に丸めたもの)と一致しない割合(エラー率)をモンテカルロ法で求めよ。
x, yは、正規分布N(0, 1)の絶対値に従うものとする。

発展的なお題：
前掲の調和平均の式を変形し、エラー率の変化を調べよ。例えば、
f(x, y) = 2 * x * y / (x + y)
のエラー率は、前掲の式と比較してどうだろうか？
また、2 / (1 / x + 1 / y)よりエラー率が低い式は在るだろうか？

発展的なお題その2：
x, yがベンフォードの法則に従う場合はどうなるか。
正規分布N(0, 1)の絶対値の場合と比べて、エラー率の順位は入れ替わるだろうか？

**デフォルトの名無しさん** · 2020/10/22(木) 01:17:43.95

...but nobody answered

**253** · 2020/10/23(金) 09:17:13.74

正規乱数をモンテカルロ法で算出して
doubleと多倍長浮動小数点でそれぞれ計差した2変数調和平均に
差がある率を求めれば良いの？
正規乱数なら書かなくともﾗｲﾌﾞﾗﾘにあるんだよね。
あるいは誤り率の計算そのものにモンテカルロ法を使うようなやり方なのかな

**デフォルトの名無しさん** · 2020/10/23(金) 14:48:32.25

次のプリーズ

**デフォルトの名無しさん** · 2020/10/23(金) 20:02:36.14

お題
乱数を使ってシミュレーションしてください

ジョーカーを除くトランプ52枚から1枚抜き取って箱に入れました
その後、残った51枚から3枚引いて確認したら3枚ともダイヤでした
では最初に抜き取った箱の中が1枚がダイヤである確率はいくらか？

**デフォルトの名無しさん** · 2020/10/23(金) 20:27:24.17

>>746 Ruby

DECK = [*0..51]

def hoge
a, *b = DECK.sample(4) until b&.all?{|v| v % 4 == 0}
a % 4 == 0
end

def fuga(n)
1.0 * n.times.count{hoge} / n
end

p fuga(1e6) # => 0.20414
p 10 / 59 # => 0.20408163265306123

**デフォルトの名無しさん** · 2020/10/23(金) 20:46:02.34

途中で送信してしまった

99%信頼区間は 0.20414±0.0010382 => [0.2031018, 0.2051782]
理論値は 10/49 = 0.20408163265306123

**デフォルトの名無しさん** · 2020/10/23(金) 20:49:11.91

確認前後での確率変動を出せ、っていうお題じゃねえのコレ

**デフォルトの名無しさん** · 2020/10/24(土) 01:58:03.71

お題
ジョーカー除く５２枚のカードがある
スートを表すS,H,D,Cと、A,K,Q,J,X,9,8,7,6,5,4,3,2との２文字からなる文字列でカードの柄を表すこととする。
当然ながら５２枚のうちどの２枚も同じ柄でない

この一組のカードを使ってポーカーゲームをする。
すなわち、初手のカード５枚を配られたプレイヤーは、そのうち０枚以上５枚以下のカードを場に捨てて、同じ枚数のカードを残りの山札４７枚から引くことができる。
このときどのカードが選ばれるかは無作為であり、プレイヤーは選択できない。

さて、プレイヤーは、初手のカード５枚に対して、最終的に手に残る５枚のカードをポーカーのルールで評価して得られる配点の期待値が最も高くなるように捨て札を決めたい。
入力としてカード５枚が与えられたとき、そのような捨て札の組み合わせを求めるプログラムを記述せよ。

ここで、ポーカーの役と配点の対応はプログラムのパラメータとして組み込んで良い。

**デフォルトの名無しさん** · 2020/10/24(土) 21:09:47.85

>>750

// 任意の役の配点を0とする
printf(0);

**デフォルトの名無しさん** · 2020/10/24(土) 23:43:41.92

>>746
Java
https://paiza.io/projects/rAHsohR9Q8vhh4kLZnfKAw

**デフォルトの名無しさん** · 2020/10/25(日) 09:27:41.37

>>750 Perl5
https://ideone.com/stLkXf

役のレートは某ゲームのものを使用

ノーペアのとき
全部変えるより1枚残したほうが有利という結果が出てちょっと驚いてる

**デフォルトの名無しさん** · 2020/10/25(日) 10:49:49.59

3が1枚来てて、3が3枚残ってるなら、
・手元の3を捨てると、3が来ても何も起こらない
・手元に3を残すと、3が来るとワンペアになる

つまり、残りのカードを引けるかどうか、になる
>>746の亜種

**デフォルトの名無しさん** · 2020/10/25(日) 11:44:16.63

746はシミュレーションも何もただの引っ掛け問題でしょ
モンティホール問題の方が引っ掛け問としては出来が良い

**デフォルトの名無しさん** · 2020/10/25(日) 12:58:23.56

引っかけも何も条件付確率の初歩の初歩の問題だろ

**デフォルトの名無しさん** · 2020/10/25(日) 14:14:17.31

52枚トランプの束で２枚目から４枚目までがダイアであるような場合に限定してその内先頭もダイアであるような場合は全体の何バーセントかを問う問題

**742** · 2020/10/26(月) 01:17:42.67

>>744
正規乱数自体は既存のライブラリで(Pythonならnumpy.random.randnとか)。
例えば、最初のお題(2/(1/x+1/y)で計算するやつ)は、34%位のエラー率になります。

**253** · 2020/10/27(火) 00:51:04.61

そうすると俺にはﾓﾝﾃｶﾙﾛ法をわざわざ使うところが
どこかよく分からないんだよね…

**デフォルトの名無しさん** · 2020/10/27(火) 23:07:51.35

結局>>742は数学的にはどういう意味なんやろ
x,yがN(0,1)に従う独立確率変数、
ρ:R→RがDouble型に丸める関数(Doubleのレンジに入らない確率はほとんど0だから無視)、
h(x,y)=2xy/(x+y)
としたとき
P(ρ(h(ρ(x),ρ(y))) ≠ ρ(h(x,y))) ≒ 34%
って事？

**253** · 2020/10/28(水) 00:01:38.74

面白い記号だなそれ。
だが、他の人にも伝わるように書いた方が話が広がってよいよ。
どんなに数学が得意な人でも本当に優秀な人はそうすることができると思う

**デフォルトの名無しさん** · 2020/10/28(水) 00:17:22.90

Φρズと書いてハイロウズと読みます

**デフォルトの名無しさん** · 2020/10/28(水) 00:21:17.79

煽りでもなく素直に疑問なのだが>>760のどこら辺がわからないんだ？
正規分布の下りか？

**253** · 2020/10/28(水) 00:30:53.43

>>762
マジレスしようと思ったが、そういう問題じゃないんだよ
言葉で書きゃー2,3行のことなんだから
言葉で人に伝わるように書けばいいだろ

と、突き放しちゃ実も蓋も無いので少しマジレスすると
ρ:R→R が写像なのは分かる。
がしかしだ

P(ρ(h(ρ(x),ρ(y))) ≠ ρ(h(x,y))) ≒ 34%

って、お前の教室のホワイトボードじゃねんだぞ。

そんなんでどうっやって世の人と付き合ってんだか…

**253** · 2020/10/28(水) 00:40:32.18

大体、P()てのは何の関数だ。
どこにでもあるような関数名だが、一般的な関数か？
いや、そんなことの説明は要らない

お前の言いたいことはそんな自己流の式よりも
手短な読んで分かる日本語で書けるはずだ

いいやP()に限らない、お前のレスは一事が万事そんな感じ
一からからやり直せ
そしたら相手してやる

**デフォルトの名無しさん** · 2020/10/28(水) 00:42:08.54

>>765
文脈から明らかにP(A)はAが起こる確率でしょうが
ちなみに俺は>>760じゃないんで

**253** · 2020/10/28(水) 00:43:23.90

>>766
それ関数じゃないだろ。何で関数として書くんだ。
どういう関数空間なんだ？

**253** · 2020/10/28(水) 00:47:05.09

簡単なことを
わざわざ難しいことのように書くのは
有能な人のすることではない

**デフォルトの名無しさん** · 2020/10/28(水) 00:51:02.28

>>767
落ち着けよお前
P(事象A) := 事象Aが起こる確率なんて高校数学の範疇だぞ
>>760が殊更ペダンチックには感じない

**253** · 2020/10/28(水) 01:00:33.01

>>769
別に落ち着いているけど
これか
https://ja.wikipedia.org/wiki/%E6%9D%A1%E4%BB%B6%E4%BB%98%E3%81%8D%E7%A2%BA%E7%8E%87
P()が確立っていつから？
俺が大学の頃まではこういう記法は見た記憶が無いんだけど

P(ρ(h(ρ(x),ρ(y))) ≠ ρ(h(x,y))) ≒ 34%

これは言葉で書いたらもっと分かりやすくならないのか？

**253** · 2020/10/28(水) 01:15:04.26

結局 >>760 は

2 / (1 / x + 1 / y)をdoubleで計算した値と倍長精度で計算したものをdouble相当に丸めたものが一致しない割合

この一行をわざわざ他の人に分かりにくい式で再度書いているだけのこと

繰り返しだし分かりにくいし
意味(doubleで計算した値と倍長精度で計算したものをdouble相当に丸めたものが一致しない割合)
が欠落している

そういうことに気づきな

**デフォルトの名無しさん** · 2020/10/28(水) 01:17:27.13

多分ですけど、あなた以外はそこまでわかりにくい表現だとは感じていないのだと思いますよ

**253** · 2020/10/28(水) 01:19:14.69

まじかｗ
そしたら回答山盛りだ

お前もさんも回答よろしくな

**デフォルトの名無しさん** · 2020/10/28(水) 01:20:24.09

>>742の意味するところが数学的に自明になればおのずと回答も付くでしょう

**253** · 2020/10/28(水) 01:20:47.31

蛇足だが、あの式で意味がわかった上で
まさか回答できなかったら、単なる無能だからな

**253** · 2020/10/28(水) 01:27:14.39

>>774
参考までにあなたは今までどのような回答を投稿されましたか？

**デフォルトの名無しさん** · 2020/10/28(水) 01:29:09.84

>>761
> 面白い記号だなそれ。

で、結局面白い記号って何だったの？

**253** · 2020/10/28(水) 01:30:24.94

ふふ、それは
ﾋ・ﾐ・ﾂ

**デフォルトの名無しさん** · 2020/10/28(水) 01:43:43.54

教科書ないから高校数学確率で一番上に出たやつ。
https://studysapuri.jp/contents/high/article/subject/sp/math00003.html

やっぱ高校の教科書に載ってたよなあｗｗ

仮に載ってなかったとして大学で使う書籍にもP載ってないって？ｗ

> 俺が大学の頃まではこういう記法は見た記憶が無いんだけど

**253** · 2020/10/28(水) 01:56:33.39

ゆとり以降だなそりゃ

**デフォルトの名無しさん** · 2020/10/28(水) 02:11:35.07

恥の上塗りするくらいなら黙ってればいいのに

**253** · 2020/10/28(水) 02:16:39.09

じゃあ何か自慢の回答でもしてよ

**742** · 2020/10/28(水) 05:10:48.17

>>760
2/(1/x+1/y)
を
2*x*y/(x+y)
と変形した場合だと、36%位です(100万回試行してみた)。

**デフォルトの名無しさん** · 2020/10/28(水) 06:02:02.77

>>742 C
https://ideone.com/iPEwg8
2 / (1 / x + 1 / y) のエラー率は 38.5%
2 * x * y / (x + y) のエラー率は 40.4%
と出た

**742** · 2020/10/28(水) 12:23:39.00

>>784
h0の計算は、xdやxdをlong doubleにcastする感じで！
>double h0 = ( xl == 0. || yl == 0. ? 0. : 2. / (1.L / xd + 1.L / yd));

**742** · 2020/10/28(水) 13:16:35.16

間違えました
double h0 = ( xd == 0. || yd == 0. ? 0. : 2. / (1.L / xd + 1.L / yd));

**デフォルトの名無しさん** · 2020/10/29(木) 00:16:48.93

お題：言語機能のみを使い単方向リストを実装しメソッドpushとpopを実装せよ
pushはリスト末尾にノードをプッシュし、popはリスト末尾からノードをポップする
ノードの持つ値は整数とする

**デフォルトの名無しさん** · 2020/10/29(木) 00:52:01.80

複数pushできるの？
popも個数指定できるの？一個ずつ？
pushの戻り値はリスト自身？入れた値？成否？

**デフォルトの名無しさん** · 2020/10/29(木) 01:01:50.46

>>787
>>788
pushもpopも値は1つずつ
pushの戻り値はなんでもいい

**デフォルトの名無しさん** · 2020/10/29(木) 10:47:03.25

>>787 js
入出力のサンプルケース書いてないやつ絶対自分はやってないだろ

class SinglyLinkedList {
push(value) {
this.head = { next: this.head, value }
}
pop() {
if (!this.head) return
this.head = this.head.next
}
str() {
let { head } = this, s = ""
while (head) {
s += head.value + ", "
head = head.next
}
return s
}
}

**デフォルトの名無しさん** · 2020/10/29(木) 12:03:58.95

>>790
なんで>>787,789の仕様でこんな実装になるんだ？
お題ちゃんと読んでる？

**デフォルトの名無しさん** · 2020/10/29(木) 12:11:08.30

>>791
「言語機能のみを使い」は引っかかる表現だったけどそれのことかい？

**デフォルトの名無しさん** · 2020/10/29(木) 12:16:22.08

オレもこの「言語機能のみを使い」がわからなかった
「ライブラリ関数使うな」か「文字列操作関数のみを使い」かどっちかかなと
わからんから様子見

**デフォルトの名無しさん** · 2020/10/29(木) 12:18:16.67

>>792
>>790
は787の仕様としてただしかったわ
すまんな
こっちのお題の定義があいまいすぎたらしい
言語機能は問題ない

**デフォルトの名無しさん** · 2020/10/29(木) 12:21:59.18

>>793
ライブラリ使うなって言いたかった
あとお題提出前の実装については>>790に比べるとかなり冗長な実装をしてある
ここに晒す気はないが

**デフォルトの名無しさん** · 2020/10/29(木) 12:33:09.26

stdlib.h使わずに作るの？

**デフォルトの名無しさん** · 2020/10/29(木) 12:36:05.93

>>794
まあええわ
俺もclassは久々に使ったけどできれば使わずに実装したかったわ

**デフォルトの名無しさん** · 2020/10/29(木) 12:50:57.59

>>797
こっちの実装したコードに比べるとそっちのコードはえらくシンプルなんだよな
軽くショックだわ
>>791みたいな口きいてすまんかったな

**デフォルトの名無しさん** · 2020/10/29(木) 13:24:14.72

>>796
リスト以外の実装は自由の想定
stdio.hも使っておｋ

**デフォルトの名無しさん** · 2020/10/29(木) 13:27:39.52

>>796
C/C++などの言語はmallocなどを使っても良いことにする

**デフォルトの名無しさん** · 2020/10/29(木) 15:09:10.20

Haskellみたいな純粋関数だとそもそも標準ライブラリだけだと“状態”を作るのも難しいんだよな
同じ表現は永遠に同じ答えを返すからスタックの“状態”を変化させるというのがそもそもできない
それをなんとかするのに“モナド”というのがあるんだけど状態を処理する“ステートモナド”は標準ライブラリではないんだよな
ほとんど“準標準”だけど

**デフォルトの名無しさん** · 2020/10/29(木) 16:24:06.73

State モナドを“準標準”と認めてもらえるなら簡単
Haskell

import Control.Monad.State

pop :: State [a] a
pop = do
a <- get
modify tail
return $ head a

push :: a -> State [a] ()
push x = do
modify ((x :))
return ()

test = do
push 1
push 2
push 3
a <- pop
b <- pop
c <- pop
return ([a,b,c])

main = print $ evalState test []
---
出力
[3,2,1]