面白い問題おしえて～な 30問目at MATH

---

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
1036:１３２人目の素数さん 20/01/27 17:01:18 QSsw4R/8.net >>980 iidって independent identical distribution? 1037:１３２人目の素数さん 20/01/27 17:27:24 t+jrfUAN.net 正解は解なしで解答不能じゃないの？ 確かにないみたいだし。 1038:１３２人目の素数さん 20/01/27 17:27:48 t+jrfUAN.net >>982 yes 1039:１３２人目の素数さん 20/01/27 17:31:46 t+jrfUAN.net >>980 あ、各分布は連続分布関数を持つはいるかもしれない。 いらないかもしれない。 1040:１３２人目の素数さん 20/01/27 17:54:36 QSsw4R/8.net >>983 つまり、 解答不能を論証する問題 1041:１３２人目の素数さん 20/01/27 18:16:48 t+jrfUAN.net >>986 プログラム組んでみたらないみたいですな。 1042:１３２人目の素数さん 20/01/27 18:24:11 t+jrfUAN.net (a,b,c,d,e,f,g,h)=((!!0),(!!1),(!!2),(!!3),(!!4),(!!5),(!!6),(!!7)) nOfLiers x = length $ filter (==False) x nOfHonests x = length $ filter (==True) x asay x = (nOfLiers x) > (nOfHonests x) bsay x = not $ h x csay x = not $ b x dsay x = (not $ c x) && (not $ f x) esay x = nOfLiers x>=1 fday x = nOfLiers x>=2 gsay x = not $ e x hsay x = (a x) && (f x) xs = (!!8) $ iterate (\x->[a:b| a<-[True,False],b<-x]) [[]] isFitToTheySaid x = all (==True) $ map (\y-> y x) [asay, bsay,csay,dsay,esay,fday,gsay,hsay] fits = [x|x<-xs,isFitToTheySaid x] main = do print $ length fits ---- 0

---

次ページ

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch