関数型言語でフラグ管理をする方法

**デフォルトの名無しさん** · 2018/10/30(火) 21:17:26.98

選択肢が4つでてくる問題が10問でてきて
8問以上正解すればクリアとかどうやって実装するの？

**デフォルトの名無しさん** · 2018/10/30(火) 21:34:37.03

10回入力受け取って出力するだけでは

**デフォルトの名無しさん** · 2018/10/30(火) 22:40:06.90

Haskellで実装してみせればいいんじゃね？

**デフォルトの名無しさん** · 2018/10/30(火) 23:23:23.32

関数型言語ってc言語とかクラスのない言語のことかと思ってたら
すげーゴミ過ぎて一生関わりたくないと思った

**デフォルトの名無しさん** · 2018/10/30(火) 23:37:25.85

3問まちがった時点でｹﾞｰﾑｵｰﾊﾞｰ

わかった？

**デフォルトの名無しさん** · 2018/10/31(水) 00:29:16.88

アナルプラグのこと？
使ってみないとその良さはわからないよ？

**デフォルトの名無しさん** · 2018/10/31(水) 01:17:11.99

まあfoldlとかで折り畳みしてmaybeとかでドボンじゃないか？

**デフォルトの名無しさん** · 2018/10/31(水) 02:17:22.18

>>1
do使った関数の2重ループ(2重再帰)で行けるんじゃね？
10回ループは引数に10指定して1回毎にー1して0になったら抜けるループ(再帰)。
(その際に正解数8問以上ならクリアと表示。以下なら残念と表示とか)

その中の回答ループで引数に正解数を指定する。正解なら＋1してループ(再帰)
不正解ならそのままループ(再帰)

**デフォルトの名無しさん** · 2018/10/31(水) 02:21:07.10

あ、問題文字列の配列と正解の数字の配列zipしても行けそう。

**デフォルトの名無しさん** · 2018/10/31(水) 04:35:14.99

>>5
答え合わせは10問終わってからなので無理です

**デフォルトの名無しさん** · 2018/10/31(水) 08:26:17.22

こんな簡単なものもさっと出てこないのね

**デフォルトの名無しさん** · 2018/10/31(水) 09:43:23.59

問題文と対する選択文と答えを1セットにした配列等10問分を用意して、1セット毎にループで順番に入出力と正解数のカウント、最後に答えを集計して合否判定するとか？

**デフォルトの名無しさん** · 2018/10/31(水) 22:26:52.18

そんなにお前らは破壊的更新が嫌なのか

**デフォルトの名無しさん** · 2018/10/31(水) 23:16:16.27

手続き脳老害が作るとこうなる
https://ideone.com/9rfXYS

**デフォルトの名無しさん** · 2018/10/31(水) 23:20:19.59

どうせゴミだろいらん

**デフォルトの名無しさん** · 2018/10/31(水) 23:51:32.08

うるせーお手本教えろや

**デフォルトの名無しさん** · 2018/11/01(木) 00:40:13.39

やはり低学歴知恵遅れしかいないわ
やはりｵﾚが正解書いてやるしかないのか

https://ideone.com/bifXFo

ANS_BIT(q,a)　←　ｺﾚで設問の解答をつくる
ANS_MASK(q,a)　←　ｺﾚで回答する
getbits()　←　ｺﾚで正解の数を数える

ｺﾚでこのｽﾚはおわった

**デフォルトの名無しさん** · 2018/11/01(木) 01:02:10.75

ビット演算はどうでもいいの

**デフォルトの名無しさん** · 2018/11/01(木) 04:19:58.62

関数型言語ですら無い。。。

十分ヒント書いたろ。
全部書くと質問者の為にならん。
RWH読まないと入出力順で苦労するだろうけど。

**デフォルトの名無しさん** · 2018/11/01(木) 11:27:29.30

ビットを数える・探すアルゴリズムでぐぐれ

**デフォルトの名無しさん** · 2018/11/01(木) 19:47:16.89

関数型言語はこんな簡単な問題ですらパッと出来ないクソ言語です。
簡単な問題を解くのに誰も頼んでない余計な縛りを入れて難しくします。
わざわざ不必要にめんどくさくした問題を解いてマウントを取り、一方簡単な問題を簡単に解いた一般人に副作用ガー不変性ガーと難癖を付けて貶します。

**デフォルトの名無しさん** · 2018/11/01(木) 20:57:33.37

それな

**デフォルトの名無しさん** · 2018/11/01(木) 22:26:38.21

なんだとこら
ループを再帰で書いたり畳み込んだり分岐をパターンマッチで書いたりでカッケーだろうが

**デフォルトの名無しさん** · 2018/11/02(金) 00:15:52.93

>>23
別に関数型じゃなくても、それできると思う
メリットが無いからやらないだけで

**デフォルトの名無しさん** · 2018/11/02(金) 21:50:50.01

ここまでゴミ

**デフォルトの名無しさん** · 2018/11/02(金) 22:34:02.29

数式をそのままコードに落とせる時もあったが、そもそも組みたい機能がカッコよく数式に落とせるモノじゃなかった

**デフォルトの名無しさん** · 2018/11/02(金) 22:55:23.66

関数型の特徴でもある末尾再帰

末尾再帰は速度を上げる機能ではなく
速度が遅くならないようにする機能

普通にループで書けば速いのに、それができないから再帰で書く
そうすると遅くなる。それを回避する機能
普通にループで書くより速くなったりしない

**デフォルトの名無しさん** · 2018/11/03(土) 00:09:24.27

そう。わざわざなぜ末尾再帰にするかというと、そうすることでループへ変換してくれるから。
こういうのを本末転倒と言う。

**デフォルトの名無しさん** · 2018/11/03(土) 08:07:41.03

じゃあ極力ﾙｰﾌﾟ使わなければいい
頭ﾜﾙｲわ

低学歴知恵遅れにﾙｰﾌﾟ使わせると
一回ﾙｰﾌﾟするのにもの凄い時間かかるような処理を平気でいれるからな

しかもそれが何重にもなってる

**デフォルトの名無しさん** · 2018/11/03(土) 08:15:12.69

ループを使わないでどうやって作るの？

**デフォルトの名無しさん** · 2018/11/03(土) 08:34:36.98

int numofbits5(long bits)
{
bits = (bits & 0x55555555) + (bits >> 1 & 0x55555555);
bits = (bits & 0x33333333) + (bits >> 2 & 0x33333333);
bits = (bits & 0x0f0f0f0f) + (bits >> 4 & 0x0f0f0f0f);
bits = (bits & 0x00ff00ff) + (bits >> 8 & 0x00ff00ff);
return (bits & 0x0000ffff) + (bits >>16 & 0x0000ffff);
}

**デフォルトの名無しさん** · 2018/11/03(土) 11:42:08.44

ビット演算どうでもいいので

**デフォルトの名無しさん** · 2018/11/03(土) 11:55:35.67

もしかして、ラジオボタンとかの想定で悩んでるのか？

**デフォルトの名無しさん** · 2018/11/03(土) 15:48:10.80

>>30
再帰。
doの再帰は末尾再帰でなくてもループになる。

**デフォルトの名無しさん** · 2018/11/03(土) 16:08:14.93

じゃあ最初からループでよい。関数型バカの遊びに付き合ってやるほど暇ではない。

**デフォルトの名無しさん** · 2018/11/03(土) 16:22:09.54

え、このスレの趣旨は？
と言うかHaskellとジャンケンとかで検索したらほぼ手本になる様なの出るだろ。

何の関数型言語使ってるか知らないが、ヒントになりそうな物くらいはググれよ。

**デフォルトの名無しさん** · 2018/11/03(土) 16:28:33.22

　ﾌﾗｸﾞ管理をする方法

とｽﾚﾀｲに書いてある
ﾏｼﾞでこの板は低学歴知恵遅れしかいない

そしてｵﾚはそのｺﾀｴは書いた
もう終了してるﾊｽﾞ

**デフォルトの名無しさん** · 2018/11/03(土) 16:55:00.26

>>34
> doの再帰は末尾再帰でなくてもループになる。
話、理解してる？

「ループを再帰でかく⇒再帰をループに戻す」これが本末転倒だって話をしてる所に
「ループじゃなくて再帰を使え、doの再帰はループになる」と本末転倒の話そのものを
持ってきてどうする？話がループしてるｗｗｗ

**デフォルトの名無しさん** · 2018/11/03(土) 17:06:25.69

>>38
うーむ。
説明が難しいな。
入出力のある関数を通常ん関数に使えないので、do付けて手続き型っぽい逐次実行するんだけど、その際のループも再帰で出来るよと。

まあ関数型言語が得意なのは関数みたいな入力ー>出力なのだから、アルゴリズムの勉強に留めて、実践は手続き型言語でやった方がいいと思うけどね。

**デフォルトの名無しさん** · 2018/11/03(土) 17:15:10.17

数学にループという概念がないから苦労してるんだな
ゼロを発見してない文化圏でゼロと同等の事を扱うみたいな馬鹿げた行為にしか見えない

**デフォルトの名無しさん** · 2018/11/03(土) 17:23:46.33

慣れてないからそう思うだけで、慣れればどっちでも。

**デフォルトの名無しさん** · 2018/11/03(土) 17:33:53.43

で、なれるのが大変だから、見ての通り
>>1の答えすらでないんやで

**デフォルトの名無しさん** · 2018/11/03(土) 17:43:27.37

えっ

**デフォルトの名無しさん** · 2018/11/03(土) 17:43:47.23

Σはループじやね

**デフォルトの名無しさん** · 2018/11/03(土) 18:29:24.38

ごらんください
ｺﾚが見事に低学歴だけが集結した結果のｽﾚ

**デフォルトの名無しさん** · 2018/11/03(土) 18:39:57.21

この板にいるようなﾔﾂﾗはｻﾙ程度の知能しかないのがよおくわかるだろ
この板にいるﾔﾂﾗのｵﾂﾑ程度は3つの制御の使いかたぐらいしかしらない
この程度での知能ですむ
この程度でのことを延々と書き込んでるﾜｹ

まあｻﾙでもできる程度のことしか、ひたすらずーっとやってないﾜｹ
わかる？　言語なんか方言だからな
ｺﾚが日本で求められるPGの姿

低学歴知恵遅れ底辺のﾄﾞｶﾀでも余裕できる
まさしくこのｽﾚそのもの

**デフォルトの名無しさん** · 2018/11/03(土) 18:42:16.18

最近Haskell書いてないから練習問題にするか

**デフォルトの名無しさん** · 2018/11/03(土) 18:49:17.75

それでいて低学歴知恵遅れの自覚がないからな

**デフォルトの名無しさん** · 2018/11/03(土) 19:42:43.36

>>31
普通xorつかうだろ

**デフォルトの名無しさん** · 2018/11/03(土) 19:44:09.65

>>46
３０年前にbasicでWindowシステム作ってたぞ

**デフォルトの名無しさん** · 2018/11/03(土) 20:04:46.88

>>42
ほらよ。

main = qa [] q >>= return.(zip a) >>=
return.(map (\(x,y) -> check x y)) >>=
return.(trueSum 0) >>= judgment

qa ns [] = return ns
qa ns (x:xs)= putStr x >> getChar >>=
(\c -> print c >> qa (ns ++ [c]) xs)

check a = (a==)

judgment n |n >= 8 = putStrLn "You Win!!"
judgment _ = putStrLn "You Lose..."

trueSum n [] = n
trueSum n (True:xs) = trueSum (n + 1) xs
trueSum n (False:xs) = trueSum n xs

q = ["Q1","Q2","Q3","Q4","Q5","Q6","Q7","Q8","Q9","Q10"]
a = "1234123412"

do形式にはそっちで勝手に直してね。(関数型っぽくなくて嫌いなんだ)
久々だったから関数脳が腐りかけてた。

**デフォルトの名無しさん** · 2018/11/03(土) 21:21:05.68

>>37
>>51みたいに関数型で書けよ

**デフォルトの名無しさん** · 2018/11/04(日) 10:24:11.76

Rubyならこんな感じ。
適当に関数型に変えてくれ。
def aaa(remain, target, ok)
p tmp = rand > 0.5
ok += 1 if tmp
return true if ok >= target
if remain + ok < target
return false
else
return aaa(remain - 1, target, ok)
end
end

remain = 10
target = 8
ok = 0

p ['result =', aaa(remain, target, ok)]

**デフォルトの名無しさん** · 2018/11/04(日) 11:07:00.38

>>53
なんかキモい

def aaa(remain, target, ok)
return false if remain.zero?
return true if ok >= target
p ans = rand > 0.5
aaa(remain - 1, target, ok + (ans ? 1 : 0))
end

remain = 10
target = 8
ok = 0

p ['result =', aaa(remain, target, ok)]

**デフォルトの名無しさん** · 2018/11/04(日) 11:09:26.81

return falseの条件を変えて途中で諦めたほうが良いか

**デフォルトの名無しさん** · 2018/11/04(日) 11:25:03.38

>>51
無駄なコード減らして、解答リストに1～4以外の文字が入ってたら(あえて)実行時エラーで終了するようにしてみた。

main = elecheck a >> getcheck [] d >>= judgment.trueSum

-- Input char and check anser.
getcheck ns [] = return ns
getcheck ns ((x,y):xs)= putStr x >> getChar >>=
\c -> print c >> getcheck ((y == c):ns) xs

judgment n |n >= 8 = putStrLn "You Win!!"
judgment _ = putStrLn "You Lose..."

trueSum = length.(filter (==True))

-- Check anser array in 1..4 number?
elecheck [] = return ()
elecheck (e:es) |(('1' <= e) && ('4' >= e)) = elecheck es

d = zip q a

q = ["Q1","Q2","Q3","Q4","Q5","Q6","Q7","Q8","Q9","Q10"]
a = "1234123412"

**デフォルトの名無しさん** · 2018/11/04(日) 11:25:48.26

そのdo記法バージョン。

main = do
elecheck a
bs <- getcheck [] d
judgment $ trueSum bs

getcheck ns [] = return ns
getcheck ns ((x,y):xs)= do
putStr x
c <- getChar
print c
getcheck ((y == c):ns) xs

judgment n |n >= 8 = putStrLn "You Win!!"
judgment _ = putStrLn "You Lose..."

trueSum = length.(filter (==True))

elecheck [] = return ()
elecheck (e:es) |(('1' <= e) && ('4' >= e)) = elecheck es

d = zip q a

q = ["Q1","Q2","Q3","Q4","Q5","Q6","Q7","Q8","Q9","Q10"]
a = "1234123412"

**デフォルトの名無しさん** · 2018/11/04(日) 11:27:53.10

途中で切れてたので再投稿。

main = do
elecheck a
bs <- getcheck [] d
judgment $ trueSum bs

getcheck ns [] = return ns
getcheck ns ((x,y):xs)= do
putStr x
c <- getChar
print c
getcheck ((y == c):ns) xs

judgment n |n >= 8 = putStrLn "You Win!!"
judgment _ = putStrLn "You Lose..."

trueSum = length.(filter (==True))

elecheck [] = return ()
elecheck (e:es) |(('1' <= e) && ('4' >= e)) = elecheck es

d = zip q a

q = ["Q1","Q2","Q3","Q4","Q5","Q6","Q7","Q8","Q9","Q10"]
a = "1234123412"

**デフォルトの名無しさん** · 2018/11/04(日) 11:28:20.18

trueSum = length.(filter (==True))

elecheck [] = return ()
elecheck (e:es) |(('1' <= e) && ('4' >= e)) = elecheck es

d = zip q a

q = ["Q1","Q2","Q3","Q4","Q5","Q6","Q7","Q8","Q9","Q10"]
a = "1234123412"

**デフォルトの名無しさん** · 2018/11/04(日) 15:31:56.65

>>53
これは酷い。関数型でもなんでもない。

**デフォルトの名無しさん** · 2018/11/04(日) 18:52:23.37

>>58-59 はiPadのRaskellで動かしたんだけど、PCだと上手く動かない。
(OSのバッファ機能とHaskellの遅延評価の悪い相乗効果)
ここでRWHの内容が活きてくるんだけど、答えは内緒。

**デフォルトの名無しさん** · 2018/11/06(火) 23:35:47.99

一問ごとに正解なら1、不正解なら0を返す関数を書いて
10個足して8以上ならCドライブをフォーマット
でいいんじゃないの？

**デフォルトの名無しさん** · 2018/11/07(水) 15:22:06.59

全部不正解でいいんじゃね

**デフォルトの名無しさん** · 2018/11/07(水) 15:42:00.65

Excelのワークシート関数だけで作ってみると
関数型言語でどう組めばいいかわかるよ！
わかるよ！

**デフォルトの名無しさん** · 2018/11/07(水) 16:07:13.80

ていうかそんならExcelでいいじゃねーかw

**デフォルトの名無しさん** · 2018/11/07(水) 16:26:15.62

お前らバカにするけどExcelってすげぇソフトだと思うよ俺は。
神エクセルが悪いだけ。

**デフォルトの名無しさん** · 2018/11/07(水) 16:31:43.44

>>61
ヒントくらい書くか。
hFlushとhSetBuffering関数をHoogleで調べてね。
>>1 とかじゃんけんゲームみたいなのには必須だよ。

**デフォルトの名無しさん** · 2018/11/11(日) 12:43:24.63

http://r2.upup.be/wV2qsULdHm

**デフォルトの名無しさん** · 2018/11/11(日) 12:47:18.53

>>68
ブラクラ

**デフォルトの名無しさん** · 2018/11/14(水) 01:25:26.63

死亡フラグが立ってます

**デフォルトの名無しさん** · 2019/02/04(月) 22:16:29.13

一応投げとくか

https://ideone.com/8v0bEW
https://gist.github.com/WhiteCat6142/8ad00596e6a5fb0620f4f9921f3b16e9

**デフォルトの名無しさん** · 2019/03/11(月) 15:26:25.67

hoogle...英語しか出てこないや

**デフォルトの名無しさん** · 2019/04/13(土) 00:45:40.57

>>71
datterのx.jsonファイルを見させていただきました