[過去ﾛｸﾞ] 関数型プログラミング言語Haskell Part33 (1002ﾚｽ)

関数型プログラミング言語Haskell Part33 http://mevius.5ch.net/test/read.cgi/tech/1581326256/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索 歴削→次ｽﾚ 栞削→次ｽﾚ 過去ﾛｸﾞﾒﾆｭｰ

---

ﾘﾛｰﾄﾞ規制です｡10分ほどで解除するので､他のﾌﾞﾗｳｻﾞへ避難してください｡

---

563: デフォルトの名無しさん [sage] 2020/11/09(月) 19:55:38.03 rootsInternal :: Quadratic -> Double -> Roots rootsInternal q d 　= let 　　　　two_a　　　= 2.0 * (a q) 　　　　realpart　　= - (b q) / two_a 　　　　dside d　　= (sqrt d) / two_a 　　　　dpart　　　= dside d 　　　　complexpart = dside (-d) 　　in if d==0 　　　　then　　　-- Discriminant is zero, (single) root is real 　　　　　　Root $ realpart :+ 0 　　　　else 　　　　if d<0 　　　　then　　　-- Discriminant is negative, roots are complex 　　　　　　Roots (realpart :+ complexpart) (realpart :+ (-complexpart)) 　　　　else　　　-- Discriminant is positive, all roots are real 　　　　　　Roots ((realpart + dpart) :+ 0) ((realpart - dpart) :+ 0) のlet 〜 in みたいなのを rootsInternal q d 　|　d==0　　　= ... 　|　d<0　　　　= ... 　|　otherwise　= ... みたいな書き方の時にもやりたいんです http://mevius.5ch.net/test/read.cgi/tech/1581326256/563

565: デフォルトの名無しさん [sage] 2020/11/09(月) 20:20:48.18 ID:UhW/CkjO >>563-564 where で出来なかったっけ？だめだったかな？ http://mevius.5ch.net/test/read.cgi/tech/1581326256/565

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.030s