[過去ﾛｸﾞ] プログラミングのお題スレ Part21 (1002ﾚｽ)
上下前次1-新
抽出解除 必死ﾁｪｯｶｰ(本家) (べ) 自ID ﾚｽ栞 あぼーん
このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ
ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡
212: デフォルトの名無しさん [sage] 2022/11/23(水) 19:37:49.36 ID:OkrKt+ei(1/2) AAS
>>208
208(2): デフォルトの名無しさん [] 2022/11/23(水) 14:01:36.50 ID:7Qp+m7RP(1) AAS
お題:フィボナッチ数列を書く

C言語で書いたサンプル：外部ﾘﾝｸ:paiza.io
Haskell
外部ﾘﾝｸ:ideone.com

fibs = 0 : 1 : zipWith ( + ) fibs ( tail fibs )
main = print $ take 100 $ fibs
213: デフォルトの名無しさん [sage] 2022/11/23(水) 19:56:22.68 ID:OkrKt+ei(2/2) AAS
>>209
209(5): デフォルトの名無しさん [sage] 2022/11/23(水) 16:05:13.46 ID:U6TEG1mT(1) AAS
正六角形の各頂点に椅子がある
各椅子に P, Q, R, S, T, U と順不同でラベルを付けるとき
P と Q が向かい合わない組み合わせは何通りあるか
ラベルの重複は無し
Haskell
外部ﾘﾝｸ:ideone.com

import Data.List
import Data.Maybe

xs = [ x | x <- permutations [ 'P' .. 'U' ],
let i e es = fromJust $ elemIndex e es ,
mod ( ( i 'P' x ) - ( i 'Q' x ) ) 6 == 3 ]

main = print $ length xs
上下前次1-新書関写板覧索設栞歴
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.035s