[size=150]このワークシートは[url=https://www.geogebra.org/m/twxxx3yq]Math by Code[/url]の一部です。[br][/size][br][size=150][br][/size]

モナドについては、Pythonの関数型プログラミングの解説本でもスルーしているものが多くあります。[br]実用性はあまりなく、学習のための実装とかいているという人もいました。[br][br]もともとはHaskellのようなレジェンド関数型言語の専売特許だったもので、Pythonの標準モジュールにも入ってないし、Pythonのドキュメントにもありません。[br]しかし、Monadの手法はRust,Reat,Typescriptなどモダンな言語の関数型パラダイムとして[br]取り入れられてきています。[br][br]なぜか？[br][br]それは記述が用意で、役立つからです。[br][br][b][color=#0000ff][size=150]扱うデータが巨大になり、欠損値が紛れ込んだりしても止まらない[br]クリーンなコード、スケーラブルなコード作成というのが[br]Web,AIの開発がさかんになったことで、日常化してきたからです。[br][/size][/color][/b][br]理想と現実の境界線でいえば、[br][b]「現実の中の多様な処理の中にも安全地帯を作らないといけなくなってきた」[/b]のです。[br][br]モナドにかぎらず、[br][b]型を明示する言語やメモリ安全、[br]メモリ効率の追求というものの重要性[/b]が[br]高まっていいるのです。[br][br]ということで、今回は、Pythonistでもなじみのうすい[br]「モナド」について、未来のために学びましょう。

モナドとはそもそも何かではなく、[br]どんな場面でどんなツール・発想が未来を明るくしてくれるのか？[br]そんなユースケース中心で見ていこう。[br][b][size=150][br]＜Maybeモナド＞[/size][/b][br]jupyternotebookの場合、[br][b]pip install pymonad[/b]でインストールします。[br][br]Maybeモナド、[b][color=#0000ff][size=200]ワンちゃん失敗あり[/size][/color][/b]モナドです。[br][br]これは、ちょうど値を返せるかダメかもというときに[br]値を返せるのを子クラスJustでくるみ、ダメ、NoneならNothingクラスを返すという、[br]失敗を許容するクラスです。[br][br]データまんじゅう、辞書DMから項目Aを抜き出したいとします。[br]項目Aに情報DM["A"]があれば、それをJustでくるみ、なければNothingを返します。[br]これを使うにはJust,Nothingという、maybeクラスの子クラスを入れましょう。[br][br][b]from pymonad.maybe import Just, Nothing[br]def extract_A(DM):[br] return Just(DM["A"]) if "A" in DM else Nothing[br][/b]この関数がモナドです。Justをデータをカプセルにつつみ、失敗してもNothingで次に送れます。[br][br]項目Aの次に項目B、項目Cでも同じような関数extract_B、extract_Cを作り[br]モナドのバケツリレーをします。[br][b][color=#0000ff]def pipeLine([b]DM[/b]):[br] return Just([b]DM[/b]).then(extract_A).then(extract_B).then(extract_C)[br][/color][/b][br]pipeLine(OKdata)#A,B,Cと成功の連鎖なら連続チェックを通ったデータが返ります。[br]pipeLine(NGdata)#A,B,Cのどこかでこけてもエラーが出ずに、最後にNothingが返ります。[br][br]初めから失敗の可能性の入った型で値をカプセルに入れてやり取りすることにより、[br]バケツリレーの最後に、パターンマッチでどう処理するかをかくHaskellゆずりの書き方ができますね。[br][br][b]エラーがあったらどうしようとか、[br]エラーが起きてからtrycatch構文にくるむのと[br][color=#0000ff][size=200]発想が真逆[/size][/color][/b]ですね。[br]次はその利用例です。[br][br]from pymonad.maybe import Just, Nothing[br]# 各ステップ：結果をJustかNothingのカプセルに入れて返す[br]def extract_profile(d):[br] return Just(d["profile"]) if "profile" in d else Nothing[br][br]def extract_address(p):[br] return Just(p["address"]) if "address" in p and p["address"] is not None else Nothing[br][br]def extract_zip(a):[br] return Just(a[:3]) if len(a) >= 3 else Nothing[br][br]def get_zip_code_monad(raw_data):[br] return ([br] Just(raw_data) # Justでくるむ[br] .then(extract_profile) # プロフィール抽出[br] .then(extract_address) # 住所抽出[br] .then(extract_zip) # 郵便番号抽出[br] )[br][br]# OKデータ[br]user1 = {"profile": {"address": "105-0011 東京都港区芝公園"},"Name":"東京タワ"}[br]user2 = {"profile": {"address": "106-0032 東京都港区六本木"},"Name":"ぽん木"}[br]# NGデータ[br]user3 = {"profile": {"address": None,"Name":"住所不定無職"}}[br]user4 = {"profile": {"address": "52"},"Name":"京都"}[br]user_data=[user1,user2,user3,user4][br]for user in user_data:[br] print(get_zip_code_monad(user))[br][OUT][br]Just 105[br]Just 106[br]Nothing[br]Nothing[br][br]欠損値があろうがなかろうが、データが大量になっても涼しい顔して、答えてくれる[br]それがMaybeモナドのバケツリレーですね。

＜Eitherモナド＞[br][br]Maybeモナドはある意味、強引に安全に動く仕組みでした。[br]でも、ただ機械がとまらなければよいのではなく、[br]そうして、ダメなのか、理由も知りたいときがあります。[br][br]全か無か、OKかNothingか[br]ではなく、[br]右か左か、正しいか変か、RightかLeftかです。[br][br]左利きの人は気にしないでください。左翼の人も気にしないでください。[br]これは右が正しいという意味もあることからくる言語的な規約です。[br]Rightなら通し、Leftならコメントをつけらえるのが、Eitherモナドです。[br][br]from pymonad.either import Left, Right[br]a = Right(2)[br]b = Left('文字２')[br][br]print(a.either(lambda x: f'ダメ, {x}', lambda x: x)) # OK[br]print(b.either(lambda x: f'ダメ, {x}', lambda x: x)) # NG[br][OUT][br]2[br]ダメ, 文字２[br][br]さっきのモナドをMaybeからEitherに直してまたバケツリレーしてみよう。[br]from pymonad.either import Left, Right[br]# 各ステップ：成功時はRight(値)、失敗時はLeft(エラーメッセージ)を返す[br]def extract_profile(d):[br] return Right(d["profile"]) if "profile" in d else Left("Profile がありません")[br][br]def extract_address(p):[br] return Right(p["address"]) if "address" in p and p["address"] is not None else Left("Address がありません")[br][br]def extract_zip(a):[br] return Right(a[:3]) if len(a) >= 3 else Left("住所の先頭の郵便番号の長さが3未満です")[br][br]def get_zip_code_monad(raw_data):[br] return ([br] Right(raw_data) # 最初はRightでくるむ[br] .then(extract_profile) # プロフィール抽出[br] .then(extract_address) # 住所抽出[br] .then(extract_zip) # 郵便番号抽出[br] )[br][br]# テストデータ[br]user1 = {"profile": {"address": "105-0011 東京都港区芝公園"}, "Name": "東京タワ"}[br]user2 = {"profile": {"address": "106-0032 東京都港区六本木"}, "Name": "ぽん木"}[br]user3 = {"profile": {"address": None}, "Name": "住所不定無職"}[br]user4 = {"profile": {"address": "52"}, "Name": "京都"}[br]user_data = [user1, user2, user3, user4][br][br]for user in user_data:[br] print(f"Name: {user.get('Name')} -> {get_zip_code_monad(user)}")[br][br][OUT][br][br]Name: 東京タワ -> Right 105[br]Name: ぽん木 -> Right 106[br]Name: 住所不定無職 -> Left Address がありません[br]Name: 京都 -> Left 住所の先頭の郵便番号の長さが3未満です[br]これで、「Nothing」という不愛想な報告が詳細になりました。[br]しかも、NGデータで途中で止まることもありません。すばらしいです。[br][br]10億件のデータでいちいちコメントがでたらたまらないですね。[br]MaybeがいいかEitherがいいかは目的しだいです。

[b][size=150]＜振り返り＞[br][/size][/b][br]エラーを外からナントカするのは古典的なアプローチでした。[br][br]しかし、モナドは、エラーさんいらっしゃいと言わんばかりに[br]現実の欠損値だろうが何だろうが、取り込みつつエラーにならないラベルつきのデータ、[br]カプセル化したクラスです。[br]逆転の発想ですね。[br][br]汚い、不完全な現実から目をそむけず、その存在を中に取り込むことにしたのですね。[br][b]この現実主義でありながら、妥協ではない、純粋関数をリレーするという理想[/b]を捨ててはいない。[br][br]モナドは、すごい発想です。[br][br]プログラミングをただの写経やチュートリアルのまねで終わらわせずに、[br]主体的な開発者の視点に立つと、[br]AIとも他の同僚とも、問題領域の関係者、ステークホルダーとも会話できるようになると思います。[br][br]さて、Geogebraは辞書構造も再帰構造も一般関数ありませんから、モナド構造もありません。[br]しかし、リスト、文字列という数値以外のデータ構造があることに着目すると、[br][br][color=#9900ff][b][u][size=150]課題：geogebraでモナド的なしかけを作ってみよう。[br][/size][/u][/b][/color][br]タイトルは「monadは止まらない」[br]a=slider(-10,10,1)[br]JorN={"Just " +a ,"Nothing" }[br]Monad=if(a>0, JorN(1),JorN(2)}[br]モナドはaが負の数になっても停止せずに表示を続けらえれます。[br]