プログラミングのお題スレ 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/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]

◆QZaw55cn4c · 2020/10/29(木) 19:01:42.56

>>787
双方向リストの方が、後々いろいろ流用できてありがたいんですけど、それでも端方向リストでインプリしないといけないのですか？

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

持て余すくらいなら「なるべく使わない」とか評価基準を示すだけにしとけばいいのに

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

>>793
全く同じこと思ってたわｗ

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

>>797
どうでもいいけどお前のIDもjsだｓな

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

>>787 Brainfuck

push: <[>],
pop: <[>]<[-]<

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

>>787
push,popってリストじゃなくてスタックの機能じゃ？
リストにさせるなら、先頭に追加してく方が速くて楽なのに。
push xs a = a:xs
pop (x:xs) = (xs,x)
反転させたいなら最後の最後にすべきだよ。

Haskell

― 使用例用main関数
main = do pushlist <- (return.push (Cons 1 (Cons 2 Null))) 3
(poplst, popval) <- (return.pop) pushlist
print pushlist
print popval
print poplst

― ここからお題のコード(整数に限定じゃないとダメならdataのList a/Cons aのaをIntに)
data List a = Null | Cons a (List a) deriving (Show)

push xs a = xs +++ (Cons a Null)

pop xs = (myinit xs, mylast xs)

Null +++ ys = ys
(Cons x xs) +++ ys = Cons x (xs +++ ys)

myinit (Cons x Null) = Null
myinit (Cons x xs) = Cons x (myinit xs)

mylast (Cons x Null) = x
mylast (Cons _ xs) = mylast xs

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

>>787 JavaScript
class List {
#data = []
push(n) {
this.#data = [n, this.#data]
return this
}
pop() {
const [head, tail] = this.#data
if (tail) this.#data = tail;
return head
}
toArray() { return this.#data.flat(Infinity) }
toString() { return String(this.toArray()) }
toJSON() { return this.toArray() }
}

const list = new List
list
.push(0)
.push(7)
.push(2)
console.log('文字列: ' + list) //=> 文字列: 2,7,0
console.log('JSON: ' + JSON.stringify(list))
//=> JSON: {"test":[2,7,0]}
list.pop() //=> 2
list.pop() //=> 7
list.pop() //=> 0
list.pop() //=> undefined

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

うわ
console.log('JSON: ' + JSON.stringify({'test': list})) //=> JSON: {"test":[2,7,0]}
だった

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

>>803
お題
双方向リストをC89で実装してください

**253** · 2020/10/29(木) 23:20:15.73

>>807

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

>>787 ocaml
https://ideone.com/8ceFxk
type 'a _list = Nil | Cons of 'a * 'a _list
exception EmptyListException
let push xs x = Cons(x, xs)
let pop = function Nil -> raise EmptyListException | Cons (x, c) -> (x, c)
let rec each f = function Nil -> () | Cons (x, xs) -> f x; each f xs
let x, xs = pop (push (push (push Nil 1) 2) 3)
let () = print_int x; each print_int xs

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

>>803
双方向書きたいってことなら書けば
お題は単方向だけど

**デフォルトの名無しさん** · 2020/10/30(金) 00:06:20.24

>>802を改良？
State [Int] だとあらかじめ用意した一個のstackしか使えない
噂に聞いたことあつたST monadで複数のスタック使えるように改造
Haskell

import Control.Monad
import Control.Monad.ST
import Data.STRef

data Stack a = Empty | N { car :: a, cdr :: Stack a } deriving (Show)

push stk val = modifySTRef stk (N val)
pop stk = car <$> readSTRef stk <* modifySTRef stk cdr

main = print $ runST $ do
sA <- newSTRef Empty
sB <- newSTRef Empty
push sA 'o' >> push sA 'o' >>push sA 'f'
push sB 'r' >> push sB 'a' >> push sB 'b'
a1<-pop sA
a2<-pop sA
a3<-pop sA
b1<-pop sB
b2<-pop sB
b3<-pop sB
return [a1,a2,a2,b1,b2,b3]
----
出力
"foobar"

**253** · 2020/10/30(金) 00:07:47.66

>>787 Perl5

公式ﾏﾆｭｱﾙに書かれている通りsplice関数を使ってpush, popを記述できる。
　splice(@a,@a,0,$x);　# push(@a, $x)
　splice(@a,-1);　　　 # pop(@a)
なんだけどspliceを使わず言語のstatementだけでpush, pop関数を記述すると…こんな感じ

use v5.18;
use feature 'signatures';
no warnings "experimental::signatures";
sub Push($a, $x) {
　@$a = (@$a, $x);
}
sub Pop($a) {
　my @a = @$a;
　my $b = $a[-1];
　@$a = @a[0..$#a-1];
　$b;
}
my @s = (1,2,3); # test main
Push(\@s, 4);
say "@s";
my $y = Pop(\@s);
say $y;

実行結果
~ $ perl 18_787_push_pop.pl
1 2 3 4
4
1 2 3

**253** · 2020/10/30(金) 00:09:56.81

>>816
say $y;
の下に書いてあった最後の行
say "@s";
をコピペしそびれた…orz

**253** · 2020/10/30(金) 00:22:38.86

>>816 Pop関数はこっちの方がいいな、無駄なコピーもないし。

sub Pop($a) {
　my $b = @$a[-1];
　delete @$a[-1];
　$b;
}

**253** · 2020/10/30(金) 00:32:51.98

>>818 deleteは削除したスカラー値を返すわ。だから以下でいいんだ

sub Pop($a) {
　my $b = @$a[-1];
　delete @$a[-1];
}

**253** · 2020/10/30(金) 00:34:30.90

>>819 my $b = @$a[-1]; 不要だった…orz

sub Pop($a) {
　delete @$a[-1];
}

**デフォルトの名無しさん** · 2020/10/30(金) 00:50:28.84

>>787
Java
https://paiza.io/projects/JKwjWCxSc6dHv_ItEaqwlQ

**デフォルトの名無しさん** · 2020/10/30(金) 02:22:50.19

>>811
Java
https://paiza.io/projects/wtaAasQr_Nu5Zw2D1KoPwg

**デフォルトの名無しさん** · 2020/10/30(金) 07:07:30.18

>>812
あ？

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

Brainfuck読めないわ
覚えようかな

**デフォルトの名無しさん** · 2020/10/31(土) 13:49:55.42

お題
与えられた文字列を一文字ずつ見ていき"trick"と"treat"の5文字でどちらが先に揃うか判定してください（順序込み）
どちらもヒットしないときは考慮しなくていいです

treakOrTreat("trick or treat")
// => trick
treakOrTreat(". tr ick")
// => trick
treakOrTreat("ttrriecatk")
// => treat
treakOrTreat("tri kc eat")
// => treat
treakOrTreat("my money")
// => none

**デフォルトの名無しさん** · 2020/10/31(土) 13:51:26.24

>>825 js(self)
function treakOrTreat(text) {
const [tri] = /t.*r.*i.*c.*k/.exec(text) || []
const [tre] = /t.*r.*e.*a.*t/.exec(text) || []
if (!tri && !tre) return 'none'
if (!tri) return 'treat'
if (!tre) return 'trick'
return tri.length < tre.length ? "trick" : "treat"
}

**デフォルトの名無しさん** · 2020/10/31(土) 14:54:50.69

関数名のミススペリングは修正していいですか

**デフォルトの名無しさん** · 2020/10/31(土) 15:02:04.99

ごっつtypoしてたすまんFIXME

**デフォルトの名無しさん** · 2020/10/31(土) 15:07:31.21

>>825 Common Lisp
https://ideone.com/L8wigO

**デフォルトの名無しさん** · 2020/10/31(土) 15:33:31.91

相変わらずキモいなあ、いつもの勝手に認定キッズ
ミュートにしてるという情報から相手が雑魚であるというぶっ飛んだ推論をする知性の欠片も持ち合わせない負け組

**デフォルトの名無しさん** · 2020/10/31(土) 15:36:09.16

>>825 Common Lisp
https://ideone.com/qHuipq

>>829は無駄な条件判定(二つめの (null a))があったので修正

**デフォルトの名無しさん** · 2020/10/31(土) 15:44:11.18

>>825 JavaScript
function trickOrTreat(str = '') {
const trick = [...'trick']
const treat = [...'treat']
let result = 'none'
for (const c of str) {
if (c === trick[0]) trick.shift()
if (c === treat[0]) treat.shift()
if (!trick.length || !treat.length) {
result = trick.length ? 'treat' : 'trick'
break;
}
}
console.log(result)
}

**デフォルトの名無しさん** · 2020/10/31(土) 15:54:22.22

>>787
C
https://paiza.io/projects/7O3xqQfCoYOhAz-48TxxWw

**デフォルトの名無しさん** · 2020/10/31(土) 16:42:52.45

>>825
Haskell

https://ideone.com/2Rb2sz

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

>>787
Perl
https://paiza.io/projects/E1ha4EgvaVhalIRuJ_To-g

**デフォルトの名無しさん** · 2020/10/31(土) 17:42:14.32

>>787
Kotlin
https://paiza.io/projects/mB7s1uC_4FJk1MFTDpLYsA

**デフォルトの名無しさん** · 2020/10/31(土) 21:33:28.24

>>825
Java
https://paiza.io/projects/jCNOEenrSmdOMXo6Fl2wyQ

**デフォルトの名無しさん** · 2020/10/31(土) 21:58:58.47

>>825 Ruby
def trickOrTreat( str )
trick = str.match( /\A.*?t.*?r.*?i.*?c.*?k/ )
treat = str.match( /\A.*?t.*?r.*?e.*?a.*?t/ )
return 'none' unless trick or treat
return 'trick' unless treat
return 'treat' unless trick
return (trick[0].size < treat[0].size)? 'trick' : 'treat'
end

[ "trick or treat", ". tr ick", "ttrriecatk", "tri kc eat", "my money",
"treat or trick", "treat or trick t",
].each{|s|
puts trickOrTreat( s )
}

**デフォルトの名無しさん** · 2020/10/31(土) 22:19:45.63

>>834
改定
やはりHaskellerがこのお題でparsec使わないのはダメという事で

Haskell

import Text.ParserCombinators.Parsec

makeP cs = foldl1 (<>) $ map (\c -> (many $ noneOf [c]) <> (return <$> anyChar) ) cs :: Parser String

first xs ys = case (runParser (makeP xs) () "" ys) of
Left _ -> (1, 0)
Right x -> (0, length x)

trickOrTreat x = case compare (first "trick" x) (first "treat" x) of
LT -> "trick"
GT -> "treat"
otherwise -> "Happy Halloween"

main = do
mapM_ (print.trickOrTreat) ["trick or treat", ". tr ick","ttrriecatk","tri kc eat","my money"]

**デフォルトの名無しさん** · 2020/10/31(土) 22:49:38.34

>>825
C

#include<stdio.h>

char* trickOrTreat(char*s, char*tk, char*tt){
if(!*tk)return "trick";
if(!*tt)return "treat";
if(!*s) return "none";

if(*s == *tk)tk++;
if(*s == *tt)tt++;

return trickOrTreat(s+1, tk, tt);
}

int main(void){
char* str[] = {"trick or treat", ". tr ick", "ttrriecatk", "tri kc eat", "my money",
"treat or trick", "treat or trick t",};
const int size = sizeof(str)/sizeof(str[0]);

char tk[] = "trick";
char tt[] = "treat";

int i;
for(i=0; i<size; i++){
printf("%s\n", trickOrTreat(str[i], tk, tt));
}

return 0;
}

**253** · 2020/10/31(土) 22:58:55.98

>>825 Perl5

for (<DATA>) {
　chomp;
　%h = map{$_ => [split'']} qw{trick treat};
　$k = 'none';
　for $c (split'') {
　　for (keys %h) {
　　　$r = $h{$_};
　　　shift(@$r) if $c eq $$r[0];
　　　unless (@$r) { $k = $_; goto L }
　　}
　}
L: print "$_ -> $k\n";
}
__DATA__
trick or treat
. tr ick
ttrriecatk
tri kc eat
my money

実行結果
~ $ perl 18_825_trickOrTreat.pl
trick or treat -> trick
. tr ick -> trick
ttrriecatk -> treat
tri kc eat -> treat
my money -> none

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

>>841
なんでお前ずっとコテハンつけてんの？

**253** · 2020/10/31(土) 23:20:38.29

>>842　IPアドレスがたまに変わるのと自分のレスを見分けやすくするため。固定ではなく番号はたまに変えてる
気にしないで