関数型プログラミング言語Haskell Part33

**デフォルトの名無しさん** · 2020/02/10(月) 18:17:36.49

関数型プログラミング言語 Haskell について語るスレです。

Haskell Language(公式サイト)
https://www.haskell.org/
日本Haskellユーザーグループ - Haskell-jp
https://haskell.jp/

前スレ
関数型プログラミング言語Haskell Part32
https://mevius.5ch.net/test/read.cgi/tech/1548720347/

**デフォルトの名無しさん** · 2021/06/05(土) 01:35:57.62

>>842
なんという罠…
これ引っかかった人結構いそう

**デフォルトの名無しさん** · 2021/06/05(土) 12:32:22.17

プログラミング最大の罠のひとつ
自分で創作するよりも他人のソースを読む方が難しい

**デフォルトの名無しさん** · 2021/06/07(月) 12:42:09.06

昨日の自分は他人です

**デフォルトの名無しさん** · 2021/06/07(月) 20:28:43.19

去年書いたコードが理解できない

**デフォルトの名無しさん** · 2021/06/07(月) 22:37:59.06

そりゃあ人間の能力は老化とともに衰えるから仕方ないね

**デフォルトの名無しさん** · 2021/06/07(月) 22:55:42.12

ここ1, 2年で自分が書いたソースが回ってくることがあるけどほとんど覚えていなかった
今から振り返るともっといいやり方が思いつくけど、他人が書いたコードより遥かに行儀が良くて読みやすかった

**デフォルトの名無しさん** · 2021/07/01(木) 09:54:29.98

Hmatrixはcabalで入れたのにghciから:m Numeric.LinearAlgebraや
import Numeric.LinearAlgebraで行列演算モジュールを入れようとすると、

<no location info>: error:
Could not find module ‘Numeric.LinearAlgebra’
Perhaps you haven't installed the "dyn" libraries for package ‘hmatrix-0.20.2’?
Use -v to see a list of the files searched for.

とエラーが出るのだけど、よく分からない。ホームディレクトリにHmatrixのファイルっぽい
ものを置いてもダメ。Numericのフォルダをホームディレクトリに置いてもダメ

分かる人、教えてくださいm(_ _)m

古いパソコンの仮想linuxに入っている奴はimport Numeric.LinearAlgebraで
通常通り動くけど、その他のPCでは動かないんだよね。前は動いていたのもあったけど
ファイル関係いじくり回してたら、設定が狂ったようで動かなくなった

関数型言語で行列演算さえ、導入にこれだけ苦労するとは、どういうことだいｗ

**デフォルトの名無しさん** · 2021/07/01(木) 13:56:29.22

> ファイル関係いじくり回してたら、設定が狂ったようで動かなくなった
ちゃんとドキュメント読んでないよね？

**デフォルトの名無しさん** · 2021/07/01(木) 18:53:55.58

ghciでimportを複数すると、プロンプトが
Prelude Data.Monoid Data.Traversable Data.Foldable>
と長くなってしまうので、importしたの表示しないようにするにはどうしたらいいのですか？

**デフォルトの名無しさん** · 2021/07/01(木) 18:56:14.18

すまん、自己解決した
:set promptを使えばいいのか
promptでググれば良かった

**デフォルトの名無しさん** · 2021/07/01(木) 22:45:34.96

quarifiedも使えるよ
お好みで

**デフォルトの名無しさん** · 2021/07/02(金) 03:41:23.49

>>849
ghciのコマンドライン引数に、使用したいパッケージを指定するものがなかったっけ？
baseパッケージ以外はちゃんと引数で明示しないとghci上で使えなかったような気がする。

**デフォルトの名無しさん** · 2021/07/10(土) 00:45:51.28

すいません
質問させて下さい
Ghc.Types というのを眺めてたんですが
謎の#が入ってるコンストラクターがいっぱい見えます

data {-# CTYPE "HsInt" #-} Int = I# Int#
data {-# CTYPE "HsDouble" #-} Double = D# Double#
newtype IO a = IO (State# RealWorld -> (# State# RealWorld, a #))

などなど
なんですかコレ？
一方でたとえばDoubleはReal classに属してるのでsinとかlogとかの処理をどこかでやってると思うのですがどこにも見つけられません
もちろんこんなプリミティブな演算はHaskellではなくCとかに丸投げしてるんでしょうけどその手の宣言なりなんなりはないもんなんですか？

**デフォルトの名無しさん** · 2021/07/10(土) 08:27:37.09

https://wiki.haskell.org/Unboxed_type
記事内リンクも見てね

**デフォルトの名無しさん** · 2021/07/10(土) 09:09:34.41

>>856
なるほど
まだよくわかってないですけどunboxed typeというやつなんですね
後半もどなたか分かりませんか？
実は事情で“多倍長の浮動小数点”を自作したいのです
そのためにはReal型にしなくてはならずsinとなlogとか結構ある数の関数を実装する必要があります
どこかに参考にできるライブラリ転がってませんか？
性能は求めないので多倍長精度の計算ができるReal型を実装してる例が欲しいです

**デフォルトの名無しさん** · 2021/07/10(土) 09:23:00.75

間違えた
Float classがsinとかいっぱいあって難しいです

**デフォルトの名無しさん** · 2021/07/10(土) 09:25:56.65

違う
Floating
orz

**デフォルトの名無しさん** · 2021/07/10(土) 12:08:32.98

https://github.com/ghc/ghc/blob/master/libraries/base/GHC/Float.hs#L588
ライブラリがありそうな気がするけど、ghcクローンしてやりたいことできるか調べてみたら

**デフォルトの名無しさん** · 2021/07/10(土) 12:28:39.86

hackageをfloatで検索した結果。怪しそうなやつ：
https://hackage.haskell.org/package/variable-precision
https://hackage.haskell.org/package/AERN-Real-Interval

**デフォルトの名無しさん** · 2021/07/10(土) 23:01:22.87

あざっす
ソース読んで研究しまつ

**デフォルトの名無しさん** · 2021/07/11(日) 06:49:31.34

リストのシャッフルは、２値ランダムと分割統治法で構成できるという境地に至った

**デフォルトの名無しさん** · 2021/07/11(日) 16:41:58.17

余談だけど
オードリー・タン氏に性的に食指が動く
男性っているのかな。

**デフォルトの名無しさん** · 2021/07/16(金) 17:38:36.16

あののののの！　なんで型コンストラクタ名が被ったらいけないんですか！
型が違うならそのコンストラクタ名くらい被ったっていいじゃないですか！

**デフォルトの名無しさん** · 2021/07/16(金) 23:35:14.79

Esqueleto では SELECT ～ FROM ONLY an_table ～　みたいに ONLY を付けることで継承テーブルを対称から外すように指示することはできないんですか？
生SQLを書くしかありませんか？

**デフォルトの名無しさん** · 2021/07/17(土) 15:02:59.17

>>864
ちょまどは鳳唐好きだって言ってた

**デフォルトの名無しさん** · 2021/07/17(土) 17:39:27.65

私は、MBAを取るために、ハワイにある伝統的なビジネススクールに通っていたとき、どこかの大企業で
働く中間管理職が教えるマネジメント「論」や経済「論」を学ぼうとしている自分に気付いた。
ビジネス経験のない先生は、学校制度の外に一度も出たことがない人だ。つまり彼は、5歳で幼稚園に入ってから
ずっと学校制度の中にいるにもかかわらず、学生たちに実社会について教えようとしていることだ。
とんだお笑い草だと思った。
講師陣や中間管理職や教師のほとんどは、ゼロからビジネスを立ち上げるのに何が必要なのかについては何も知らなかった。
ロバートキヨサキ「人助けが好きなあなたに贈る金持ち父さんのビジネススクール」P６２～６３

彼らのほとんどは、学校という象牙の塔を出ると、企業社会という象牙の塔に入った。
安定した仕事と給料に依存していた。つまり、素晴らしいビジネス論をもっている人は
たくさんいたが、現実の世界でビジネスをゼロから立ち上げ、大きな富を蓄えるのを可能にする、
素晴らしいビジネススキルのある人はほとんどいなかったということだ。
彼らのほとんどは給料なしで生きていけなかった。
ロバートキヨサキ「人助けが好きなあなたに贈る金持ち父さんのビジネススクール」P６３

**デフォルトの名無しさん** · 2021/07/17(土) 18:54:41.40

言語設計者に対する悪口はそこまでにしてやれ

**デフォルトの名無しさん** · 2021/07/18(日) 08:48:06.51

まあ、生きていけないぞー死ぬぞーってのが机上の空論の中でも最悪の論だよな
実際には死なない人が多い

**デフォルトの名無しさん** · 2021/07/18(日) 22:53:21.56

すいません、僕がスレを軽率に上げてしまったばっかりにワードサラダBOTの餌食なってしまうとは・・・

**デフォルトの名無しさん** · 2021/07/19(月) 09:08:56.51

現状これはとりあえず有効にしとけみたいなGHC拡張ってなにがありますか

**デフォルトの名無しさん** · 2021/07/19(月) 10:46:43.62

>>872
無いです。
必要なときにのみ必要なだけ宣言するといいです。

**デフォルトの名無しさん** · 2021/07/26(月) 04:08:52.62

ttps://cognicull.com/ja
Haskellやるのにこの辺は履修済みであることが求められるの？
Obj-Cだとほぼなくてもアプリは書けるけども
Haskellって数学じゃないのに数学のフリしてるところあるよね
利用者も然りで余計混乱を招いてる気がする

**デフォルトの名無しさん** · 2021/07/26(月) 12:01:28.04

>>874
うーん、書きたいプログラムの内容によるとしか言えないかな
こうしたことがわからないとHaskellのプログラムが書けないということはない
そのあたりはObjective-Cと同じ

**デフォルトの名無しさん** · 2021/07/27(火) 03:35:04.64

Data.Arrayって廃止されたの？
GHC.Arr を使えってこと？

**デフォルトの名無しさん** · 2021/07/27(火) 05:37:33.58

>>876
Data.Array は array パッケージにあります。

**デフォルトの名無しさん** · 2021/07/27(火) 15:27:28.97

>>874
フリじゃなくて実際、他のメジャー言語よりは数学的裏付けがされてると思う
利用者も然りなのはむしろ良い傾向
他言語はhaskell以上に、ウェイがノリで書いたようなゴミライブラリが流行ってたり、侍エンジニアレベルのゴミ文献が蔓延ってたりする阿鼻叫喚状態

**デフォルトの名無しさん** · 2021/07/28(水) 02:22:30.38

>>877
詳しい情報サンクス

**デフォルトの名無しさん** · 2021/07/30(金) 13:54:44.53

>>874
Haskell書いてるときにそういう系統の知識が要求されたことはないなぁ、いくつかの概念の出自が圏論だと聞いたことはあるが

**デフォルトの名無しさん** · 2021/07/30(金) 14:32:21.44

すごいHaskellに素晴らしい数学の解説書ってレビューがついてた時はクスっと来たけど

**デフォルトの名無しさん** · 2021/08/02(月) 07:34:32.07

例えばOOPの継承関係を否定する
否定するなら対案を出せと言われる
この過程は数学ではないけど結果的には半順序関係とか圏とか出てくる

**デフォルトの名無しさん** · 2021/08/16(月) 04:30:28.47

純粋関数型でキャッシュは実装可能？

例えばＯＯＰでは計算に時間がかかる値はキャッシュしておいて次の読み取りで
キャッシュから返すという事ができる。
このキャッシュの管理をＯＯＰらしいカプセル化によってまともに実装できる

**デフォルトの名無しさん** · 2021/08/16(月) 18:24:35.56

>>883
可能です。
memoization をキーワードに調べてみてください。

**デフォルトの名無しさん** · 2021/08/18(水) 20:19:16.73

>>66
オブジェクト指向プログラミングにおける Smalltalk 的な位置づけに来るんじゃないかな。

ガッチガチだから強制的に「その概念」に染まれる。

**デフォルトの名無しさん** · 2021/08/19(木) 00:24:27.59

低級言語でインタプリタを作れそうなシェルスクリプト的な位置づけだよ
単一の高級言語を強制されない

**デフォルトの名無しさん** · 2021/08/19(木) 16:00:36.29

関数型言語ってリストとかツリーみたいな再帰的なデータ構造扱うのは得意だけど
有向・無向グラフ(のアルゴリズム)扱うの難しくない？

**デフォルトの名無しさん** · 2021/08/19(木) 18:40:13.11

>>887
難しいと感じるかどうかは本人の気持ちなので何とも言えません。

ただ、haskellでのグラフ理論の扱いに関しては、
カジュアルな解説もフォーマルな論文もたくさんあります。
ライブラリもあります。

扱ったことはないけど、何となくイメージだけで
難しそうだ、
haskellの苦手分野だと思っているのであれば、
自分に読めそうな記事にいくつかトライしてみてはどうでしょうか。

**デフォルトの名無しさん** · 2021/08/19(木) 21:01:34.14

>>887
Erlangのようなメッセージ送信を考えればわかるが
メモリを共有していない相手にも送れるデータ構造が得意

メッセージとして文字列ばかり使ってるとカプセル化も型情報も無駄になる
だから文字列に似ているが異なるデータ構造が役に立つ

**デフォルトの名無しさん** · 2021/08/25(水) 21:36:21.14

Applicativeの(*>)演算って何の意味があるの?
第一引数はどうせ捨てられるんでしょ。

**デフォルトの名無しさん** · 2021/08/25(水) 23:09:37.51

確かに左辺 :: f aで言うところのa型の値は捨てるが
Maybeとか[]みたいな直和型でどの値コンストラクタを使って構築されたかの情報は影響するよ

**デフォルトの名無しさん** · 2021/08/26(木) 21:35:42.38

>>891
それは第1引数をパターンマッチすることで、たとえ第2引数が同じ値でも、
(*>)の計算結果を変えられることに意味があるってこと？

Sum型やProduct型もApplicativeのインスタンスになってるけど、
これらだと(*>)には意味がない？
(当然(<*>)など他の演算には意味があると思うけど)

**デフォルトの名無しさん** · 2021/08/28(土) 14:58:50.16

>>890
Parsecで左辺の句がいらないときに使う

**デフォルトの名無しさん** · 2021/09/01(水) 17:56:43.60

ぼくようメモ：
OpenSUSE でPostgreSQLを使用した開発をしていてstack buildで
postgresql-libpq パッケージを途中にビルドする際
pg_config が無いと言われコケることがある

背景： OpenSUSE は postgres-devel から pg_config を削除した。我々は libpq.pc を代わりに使うべきである。
ソース： https://redmine.lighttpd.net/issues/2965

解決法：

stack build --flag postgresql-libpq:use-pkg-config
としてビルドする

**デフォルトの名無しさん** · 2021/09/08(水) 22:14:55.40

そうか！Trueskill のHaskell実装がなくて論文読んで自分で実装する力がなくても
Haskellから実行時にbash 呼び出してPython3　のTrueskillライブラリに標準入力でPythonコードを流し込んで
演算結果を文字列で貰ってきて、それをParserCombinatorで作った字句解析器で読み取ってHaskellのデータに戻せばいいじゃん
あたいったら天才ね！

**デフォルトの名無しさん** · 2021/09/09(木) 09:49:18.76

s/天才/脳筋/

**デフォルトの名無しさん** · 2021/09/10(金) 01:55:27.29

関数定義の左辺の部分的で、関数名と仮引数名の後の | と = の間の部分って何て名称だっけ？

f x y | x < y = ...

これの x < y の部分。
あるいは関数定義をこう書く方法の呼び方とか。

この文法や制限などをネットで調べたいんだけど、
名称が思い出せず検索に難儀してる。
できれば英語でお願い。

**デフォルトの名無しさん** · 2021/09/10(金) 03:22:07.48

>>897
すまん、思い出した、guard だ。

**デフォルトの名無しさん** · 2021/09/10(金) 22:23:35.11

>>896
g を忘れてね？

**デフォルトの名無しさん** · 2021/09/22(水) 10:43:55.15

パターンの質問です

Rational型の数が平方数であるかどうか判定するプログラムで

isSquare r = r >= 0 && r == ( sqrtR r )^2
sqrtI = truncate . sqrt . fromInteger
sqrtR r = let
( a, b ) = ( numerator r, denominator r )
in ( sqrtI a ) % ( sqrtI b )

というのを書きました
もちろんこれはうまくいきます

しかし numerator, denominator をいちいち取り出すのが鬱陶しいので

sqrtR ( a :% b ) = ( sqrtI a ) % ( sqrtI b ) ------- ①

と書きたかったのですがうまくいきません

**デフォルトの名無しさん** · 2021/09/22(水) 10:44:01.62

ネットで調べると

{-# LANGUAGE PatternSynonyms, ViewPatterns #-}

numDenum :: Integral a => Ratio a -> (a,a)
numDenum x = ( numerator x, denominator x )

pattern ( :% ) :: Integral a => a -> a -> Ratio a
pattern a :% b <- ( numDenum -> ( a,b ) )
where a :% b = a % b

というおまじないがstack exchangeで見つかってコレつけるとうまく行きました
うまくいったんですがサッパリわかりません
コレ何者ですか？
そもそも①はなんでうまく動かないんですか？

**デフォルトの名無しさん** · 2021/09/22(水) 11:58:51.92

計算結果をパターンマッチさせようとして失敗してるのでは

値を値コンストラクタにばらしてその値コンストラクタに応じて処理を変えるのがパターンマッチ
(マッチさせる対象がList aなら、：なのか[]なのかに応じて「先頭：後ろ」か空リストかが束縛される)

で、計算結果をマッチさせたいならビューってのを定義してあげないといけませんよって話のような

**デフォルトの名無しさん** · 2021/09/22(水) 18:38:05.18

>>902
レスありがとうございます
原因わかりました
ご指摘の通り「計算結果にはパターンマッチさせられない、パターンマッチに入っていい関数はコンストラクタのみ」なのでRatio a型のコンストラクタである( :% )を使ってたのでそこは問題ないと思ってたんですが肝腎要の( :% )が定義されてるGHC.Realをimportしてませんでした
Data.Ratioをimportしたら自動的に(:%)も使えるもんだと思い込んでいました
Pattern synonymsについては

https://qiita.com/as_capabl/items/d2eb781478e26411a44c

でちょっと理解できました、が、そもそも使わなくても良くなりました
ご協力感謝です

**デフォルトの名無しさん** · 2021/09/22(水) 20:18:48.06

備忘録がてら調べてわかった事書いておきます
Pattern Synonyms は今回のようにライブラリの提供者が型のコンストラクタを提供してない、しかしパターンマッチは使いたいとかの場合に使える拡張のようです
{-# LANGUAGE PatternSynonyms, ViewPatterns #-}
を使うと

pattern ( マッチさせたい表現) <-
( その型から取り出したい値を取り出す関数)
-> ( 取り出した値にマッチさせるパターン) )
( where さらにコンストラクタシノニムとしても使いたい場合の逆変換関数 )

の形で使うようです
例えばInt型でxが偶数であった場合にdiv x 2をパターンマッチで拾うために

pattern TwiceOf x <-
( ( \t -> ( div t 2 , even t ) ) -> ( x, True ) )

のように定義しておいて

main = do
case 2 of { DoubleOf x -> print x; _ -> print "odd" }
case 3 of { DoubleOf x -> print x; _ -> print "odd" }

のように利用できるようです
TwiceOf はあくまでパターンマッチの表現のみで使える“仮の”コンストラクタですがpattern文にwhere句を

pattern DoubleOf x <-
( ( \t -> ( div t 2 , even t ) ) -> ( x, True ) )
where TwiceOf x = 2*x

のように追加するとあたかもInt型の新しいコンストラクタが追加されたように振る舞い“DoubleOf 2”のような表現が許されるようになるようです
今回の場合はどうすべきか悩みどころです
ライブラリの開発者が低レベルの(:%)を公開しない理由もわかるので無理クリ(:%)を使うのもどうなんつて気もするし、かと言ってまだHaskellの標準として認められてない、GHCでしか使えない拡張使うのもどうなんという気もするし

**デフォルトの名無しさん** · 2021/09/23(木) 10:16:50.52

>>904
> かと言ってまだHaskellの標準として認められてない、GHCでしか使えない拡張使うのもどうなんという気もするし

まさかGHCの言語拡張はすべて使わないつもりですか？
せっかくの表現力が著しく落ちますよ。

今あるいは将来 GHC 以外のツールでコンパイルする計画があるのなら仕方ありませんが、
そうでなければ言語拡張の使用を躊躇する理由が見あたりません。

私なら、
・プログラムが意図した動きをし、
・かつソースコードが読みやすくなる
なら言語拡張を積極的に利用します。

意図通り動くけど可読性が落ちるなら、そこで初めて迷いますね。

**デフォルトの名無しさん** · 2021/09/23(木) 20:01:57.83

>>905
まぁそうですね
完全日曜プログラマーなので気分良く書けばいいか

**デフォルトの名無しさん** · 2021/09/26(日) 07:18:33.81

Stack Overflow に面白い質問が投稿されていた。
要約すると return 1 getLine という式の型は Num t => t で、その値は 1 らしいんだが何で？というもの。
質問者は勘違いして、何で return と getLine が互いに打ち消し合うのかと訊いていたが。
https://stackoverflow.com/questions/69325169/haskell-a-return-before-is-cancelled-out-by-a-monad-after-how

なかなか興味深い。
考えてみると haskell の理解がいっそう深まる。

**デフォルトの名無しさん** · 2021/09/26(日) 19:38:43.50

最近並列処理を齧り始めました

ランダム値の生成にmwc-random パッケージの System.Random.MWC.createSystemRandom で生成した GenIO を、全体を通して利用する環境として Reader モナドに入れて使いまわしていたとします
ここにSTM で並列処理機能を新規に追加する場合、forkIO したスレッド内で一々そのスレッド専用に GenIO を生成し直すべきでしょうか？
というのは、それをしないと
各スレッドで共通の GenIO がコピーされ使用される場合、各スレッドで同じ値が生成されていってしまいランダムの意味をなさないのではないかと思うからです
ではこの疑似ランダム生成器を TVar に入れるかとなると、資源の取り合いになって、１スレッド時よりパフォーマンスが低下して元も子もないではないかという懸念があります
ここまで思考実験すると、やはり forkIO したスレッド毎に一々、その中で専用の疑似ランダム生成器を新調する必要があるという考えに至りました
スレッド数が多くなると疑似ランダム生成器を作るコストがバカにならなくなっていくでしょうが、その辺は頑張るしかないよということで、ぼくの考えは合っていますか？

**デフォルトの名無しさん** · 2021/09/26(日) 21:46:38.01

>>908
そこまでしっかり考察したのなら、質問する前にまず実験してみようよ。

**デフォルトの名無しさん** · 2021/09/27(月) 16:47:57.85

>>909
実験してみたら、各スレッドで別の値が生成されていました
しかしドキュメント見ると It uses mutable state so same generator shouldn't be used from the different threads simultaneously.と書いてあるんですが
これはどう受け取ったらいいんですかね
各スレッドで別の値が生成されているなら用を為してる（ように思える）からいいじゃないかとも思うのですが
何か別の理由があって、そう思えてもやはり使うなという事なんでしょうか？

**デフォルトの名無しさん** · 2021/09/27(月) 18:11:25.46

>>910
mutable stateの排他制御をしてないから複数のスレッドで実行するとまずいことが起こるかもしれない、ってことじゃないの？

排他制御
https://ja.wikipedia.org/wiki/%E6%8E%92%E4%BB%96%E5%88%B6%E5%BE%A1

**デフォルトの名無しさん** · 2021/09/27(月) 20:38:39.08

>>910
パフォーマンスの実験もね。
理論上パフォーマンスが落ちると分かっていても、実用上は問題ない場合も多い。

**デフォルトの名無しさん** · 2021/09/29(水) 15:57:53.68

>>907
そこで関数モナドが出てくるのは知らないと思い至らないなあ
勉強になった

**デフォルトの名無しさん** · 2021/09/30(木) 07:09:39.49

>>907
セミコロンを書かない言語ではすべからく改行直後に
(getLine)と書くとどうなるか問題が出てくる

**デフォルトの名無しさん** · 2021/09/30(木) 09:21:54.92

すべからく警察だ！

**デフォルトの名無しさん** · 2021/09/30(木) 09:22:48.41

>>911
具体的にどういうケースでどういう問題が起こるか解らないので、取り敢えずドキュメントにスレッド間で共有はやめろとある以上、大人しく従うことにします

>>912
STM版が、3950Xエコモードシングル500分の処理が30スレッド割り当てで220分くらいになりましたが
CPU使用率も75%前後で残念でした

競合するリソースが多過ぎたからではと思い、競合を避ける事を考えていると
そもそもSTMを使わず、スレッド毎にローカルにデータを貯めて処理して最後に各スレッドで部分的に仕上げたデータをChanで流して
、受信した側でデータを総括する、初歩的な方式を思いついたので書き換えました

getChanContentsを使いましたが、EOFみたいな最後の通知方法が判らずに、全スレッドの処理が終わりもう誰もデータを流すことのないチャネルから性懲りもなく読みだそうとしてしまい
例外が発生して困っていました
幸いスレッドの数は判っているのでチャネルからtakeする数をスレッド数ちょっきりとして切り上げた所、遅延評価が幸いしてその先を読もうとしなくなり例外は発生しなくなりました（本質的解決かは判りません）
これにより処理が18分で終わりました
スレッド毎にcreateSystemRandomするように書き換えると21分かかるようになりました
オーバヘッド込みでも500分かかっていた時代から驚異的な進化を遂げました

憧れだった Software Transactional Memory は期待程速くなくがっかりしました
STMは最初に検討するべきではなく、巧く競合が発生しないように書けないときの最後の手段なのかなと思いました

**デフォルトの名無しさん** · 2021/09/30(木) 16:59:33.11

物理cpuが四つとかの擬似マルチスレッドではそんなに早くならないと思ってたけど、ものによってはそんなにも早くなるもんなんだな

**デフォルトの名無しさん** · 2021/10/04(月) 21:32:31.29

と思ったら3950x gpuでほんとに物理スレッドがたくさんある場合の話か

**デフォルトの名無しさん** · 2021/10/05(火) 23:20:55.55

>>907
型注釈してないのに、インスタンスとして関数モナドが選択されるのはどうしてですか？
getLineが影響していますか？

**デフォルトの名無しさん** · 2021/10/06(水) 01:58:31.84

>>919
return 1 getLine は (return 1) getLine だから、
(return 1) が関数(a->b) じゃないと型が合わないんじゃないかな？

**デフォルトの名無しさん** · 2021/10/06(水) 22:57:04.48

関数モナドと同じように、引数一つ取るモナド作ったらambiguousって怒られるかなと思ったんだけど、コンストラクタ書かないとならないからうまくいかない。
この値は関数モナドにしか解決されないのかな

**デフォルトの名無しさん** · 2021/10/07(木) 09:52:08.72

C++のoperator()()に相当する演算を多重定義できないので曖昧ではない

**デフォルトの名無しさん** · 2021/10/17(日) 18:41:32.26

なんｊでめんだこって言う女装子がhaskell勉強していてdao of functional programmingっていう海外の人が書いた文献がわかりやすいってことでそれ読んでいるらしいが
ここの人にもそれ読んでいる人いる？

**デフォルトの名無しさん** · 2021/10/17(日) 20:11:52.85

これか

The Dao of Functional Programming
https://github.com/BartoszMilewski/Publications/blob/master/TheDaoOfFP/DaoFP.pdf

圏論関係の内容だな

**デフォルトの名無しさん** · 2021/10/17(日) 20:37:14.39

>>924
すまんリンク探させてしまってすまない
ワイが貼るべきやった
ワイは圏論わからないから読まずじまいだったわ
いつか圏論習得できたらその際に読もうかなって思ってる

**デフォルトの名無しさん** · 2021/10/17(日) 21:08:39.75

プログラミングの本質を学ぶには圏論について学ぶ必要があるということらしい
学んですぐ役立つというものではないようで、すぐ役立つ知識がお望みなら他をあたってくれ、とか

**デフォルトの名無しさん** · 2021/10/17(日) 23:35:51.47

見せてもらおうか、圏論とやらを。

**デフォルトの名無しさん** · 2021/10/18(月) 00:33:18.04

>>924
同じ著者の

Category Theory for Programmers
https://github.com/hmemcpy/milewski-ctfp-pdf/releases

**デフォルトの名無しさん** · 2021/10/18(月) 02:49:04.06

また圏論か
もういいよ

**デフォルトの名無しさん** · 2021/10/18(月) 12:08:52.29

さあ　ねがいを　いえ

**デフォルトの名無しさん** · 2021/10/18(月) 15:15:47.20

https://www.youtube.com/watch?v=E-48ent631o
https://bangumi.ouj.ac.jp/v4/bslife/detail/156936813.html

**デフォルトの名無しさん** · 2021/10/22(金) 12:14:30.91

Free monad とは何か？の、シンプルかつ的を射た説明がsrackoverflowにあった。
(John Wiegley の回答)
https://stackoverflow.com/questions/13352205/what-are-free-monads

これを読んでから他の色んなFree monadの記事を読むと、すんなり理解できる。

これ、本質がよく解っている人の回答だよね。
こんな格好良く回答ができるよう精進したい。

**デフォルトの名無しさん** · 2021/10/22(金) 21:20:57.92

UTF-8 のHaskell ソースコードに書き込んだ日本語文字列を通信先に渡す為に Shift_JIS の String にしたいのですが

module Main where

import Data.Text.ICU.Convert as ICU
import Data.Text as T
import Data.ByteString.Char8 as BS

main :: IO ()
main = do
　　conv <- open "Shift_JIS" Nothing
　　let
　　　　utf8txt = T.pack "皆は、赤ちゃんしゅきぃ？"
　　　　sjis_bs = fromUnicode conv utf8txt

この sjis_bs をどうしたら Shift_JIS の String になるんですか？
BS.unpack だと
ﾂ皆ﾂづ債、ﾂ静板つｿﾂづ｡ﾂづｱﾂつｵﾂづ｣ﾂつｫﾂつ｡ﾂ？
になってしまいます

**デフォルトの名無しさん** · 2021/10/22(金) 23:18:21.74

haskellってpythonに影響与えてるんやな
どおりで雰囲気似てる感じするんか

**デフォルトの名無しさん** · 2021/10/23(土) 01:09:52.51

レイアウトと呼ばれるインデントスタイルは、Pythonが1991年に最初にリリースであり、85年以前にあった
Mirandaを参考に1990年にHaskellは登場したはず。

**デフォルトの名無しさん** · 2021/10/29(金) 12:55:32.45

不動点演算子がわからなくて泣ける
再帰呼び出しになってないのに再帰になってるのはわかるんだけど

**デフォルトの名無しさん** · 2021/10/29(金) 18:35:44.90

>>936
何が分からないのか分からない

**デフォルトの名無しさん** · 2021/10/29(金) 18:40:46.51

>>937
なんでわかるんや？
才能か？
後不動点定理がわからん
勉強しろって言われてるけど

**デフォルトの名無しさん** · 2021/10/29(金) 20:05:05.45

遅延評価の才能がないと x = f x を思いつかないんだよな
y f = f (y f) しか分からない

**デフォルトの名無しさん** · 2021/10/29(金) 21:04:54.17

>>936 の何もかもが、こちらには分からない。
愚痴を言いたいだけなのか、それとも何か質問をしたいのか。
後者なら、質問内容は何か。

>>938
> 後不動点定理がわからん
それだけなら、勉強してくださいとしか言いようがない。

勉強しろと言われているのなら、何か資料が配られたり、
参考文献が挙げられたりしていないのか？
そういうのが既にあるのなら、取りあえず全てに当たって、
今分かる部分と分からない部分を徹底的に細かく仕訳してみればいいのでは？

**デフォルトの名無しさん** · 2021/11/05(金) 06:38:08.04

>>936
分からないのは何故再帰処理してるのかじゃなくて（そこは定義的に明らかだし）、
どうして無限ループせずに終了するのかでいいのかな

**デフォルトの名無しさん** · 2021/11/14(日) 05:07:45.42

やっと Monad クラスから return が消えるよ
まだ計画段階たけど
https://github.com/fumieval/Haskell-breaking-changes