모나드

using System;
using System.Linq;

// 문자열을 정수로 바꾼다. 실패할 수 있으므로 Option을 돌려준다.
static Option<int> ParseInt(string s) =>
    int.TryParse(s, out var n) ? new Some<int>(n) : new None<int>();

// 짝수만 반으로 나눈다. 이 단계도 실패할 수 있다.
static Option<int> Half(int n) =>
    n % 2 == 0 ? new Some<int>(n / 2) : new None<int>();

// 값을 문맥에 넣기만 하는 연산(return, unit)이다.
static Option<int> Unit(int n) => new Some<int>(n);

Option<Option<int>> nested = ParseInt("8").Map(Half);
Console.WriteLine($"Map:  {nested}");
Console.WriteLine($"Bind: {ParseInt("8").Bind(Half)}");
Console.WriteLine($"Bind: {ParseInt("7").Bind(Half)}");
Console.WriteLine($"Bind: {ParseInt("x").Bind(Half)}");

// 세 법칙을 몇 개의 값으로 확인한다. 증명이 아니라 예시 확인이다.
int[] values = [8, 7];
Option<int>[] ms = [ParseInt("8"), ParseInt("6"), ParseInt("x")];
Console.WriteLine("left identity:  " + values.All(a => Unit(a).Bind(Half) == Half(a)));
Console.WriteLine("right identity: " + ms.All(m => m.Bind(Unit) == m));
Console.WriteLine("associativity:  " + ms.All(m =>
    m.Bind(Half).Bind(Half) == m.Bind(x => Half(x).Bind(Half))));

abstract record Option<T>;
sealed record Some<T>(T Value) : Option<T>
{
    public override string ToString() => $"Some({Value})";
}
sealed record None<T> : Option<T>
{
    public override string ToString() => "None";
}

static class OptionExtensions
{
    // Map: 값이 있으면 f를 적용하고 결과를 다시 Some으로 감싼다.
    public static Option<U> Map<T, U>(this Option<T> option, Func<T, U> f) => option switch
    {
        Some<T>(var value) => new Some<U>(f(value)),
        _ => new None<U>(),
    };

    // Bind: 값이 있으면 f에 넘기고, f가 돌려준 Option을 그대로 결과로 쓴다.
    public static Option<U> Bind<T, U>(this Option<T> option, Func<T, Option<U>> f) => option switch
    {
        Some<T>(var value) => f(value),
        _ => new None<U>(),
    };
}

Map:  Some(Some(4))
Bind: Some(4)
Bind: None
Bind: None
left identity:  True
right identity: True
associativity:  True

using System;
using System.Collections.Generic;
using System.Linq;

var users = new Dictionary<int, User>
{
    [1] = new("Alice", "core"),
    [2] = new("Bob", null),
    [3] = new("Dave", "ops"),
};
var teams = new Dictionary<string, Team>
{
    ["core"] = new("Core", "carol"),
    ["ops"] = new("Ops", "erin"),
};
// erin은 이메일이 등록되어 있지 않다.
var emails = new Dictionary<string, string> { ["carol"] = "carol@example.com" };

Option<User> FindUser(int id) =>
    users.TryGetValue(id, out var user) ? new Some<User>(user) : new None<User>();
Option<Team> FindTeam(User user) =>
    user.TeamId is string teamId && teams.TryGetValue(teamId, out var team)
        ? new Some<Team>(team) : new None<Team>();
Option<string> FindEmail(Team team) =>
    emails.TryGetValue(team.ManagerId, out var email) ? new Some<string>(email) : new None<string>();

// 1. 중첩 if: 단계가 늘 때마다 들여쓰기가 한 단계 깊어진다.
Option<string> WithIfs(int id)
{
    if (users.TryGetValue(id, out var user))
    {
        if (user.TeamId is string teamId && teams.TryGetValue(teamId, out var team))
        {
            if (emails.TryGetValue(team.ManagerId, out var email))
            {
                return new Some<string>($"{user.Name} -> {email}");
            }
        }
    }
    return new None<string>();
}

// 2. Bind 직접 호출: 앞 단계의 user를 마지막에 쓰려면 람다가 안쪽으로 겹친다.
Option<string> WithBind(int id) =>
    FindUser(id).Bind(user =>
        FindTeam(user).Bind(team =>
            FindEmail(team).Map(email => $"{user.Name} -> {email}")));

// 3. 쿼리 구문: 컴파일러가 from 절을 SelectMany 호출로 바꾼다.
Option<string> WithQuery(int id) =>
    from user in FindUser(id)
    from team in FindTeam(user)
    from email in FindEmail(team)
    select $"{user.Name} -> {email}";

foreach (var id in new[] { 1, 2, 3, 99 })
{
    var a = WithIfs(id);
    var b = WithBind(id);
    var c = WithQuery(id);
    Console.WriteLine($"id {id}: {c}, all three equal: {a == b && b == c}");
}

// IEnumerable<T>의 SelectMany도 같은 구문을 쓴다. 각 원소마다 나온 시퀀스를 이어 붙인다.
var pairs =
    from team in new[] { "Core", "Ops" }
    from role in new[] { "dev", "qa" }
    select $"{team}/{role}";
Console.WriteLine(string.Join(", ", pairs));

record User(string Name, string? TeamId);
record Team(string Name, string ManagerId);

abstract record Option<T>;
sealed record Some<T>(T Value) : Option<T>
{
    public override string ToString() => $"Some({Value})";
}
sealed record None<T> : Option<T>
{
    public override string ToString() => "None";
}

static class OptionExtensions
{
    public static Option<U> Map<T, U>(this Option<T> option, Func<T, U> f) => option switch
    {
        Some<T>(var value) => new Some<U>(f(value)),
        _ => new None<U>(),
    };

    public static Option<U> Bind<T, U>(this Option<T> option, Func<T, Option<U>> f) => option switch
    {
        Some<T>(var value) => f(value),
        _ => new None<U>(),
    };

    // 쿼리 구문이 찾는 이름이다. 단일 from ... select는 Select로 번역된다.
    public static Option<U> Select<T, U>(this Option<T> option, Func<T, U> f) => option.Map(f);

    // 두 번째 from 절은 이 오버로드로 번역된다. Bind 뒤에 결과 선택자를 적용한다.
    public static Option<V> SelectMany<T, U, V>(
        this Option<T> option, Func<T, Option<U>> f, Func<T, U, V> resultSelector) =>
        option.Bind(t => f(t).Map(u => resultSelector(t, u)));
}

id 1: Some(Alice -> carol@example.com), all three equal: True
id 2: None, all three equal: True
id 3: None, all three equal: True
id 99: None, all three equal: True
Core/dev, Core/qa, Ops/dev, Ops/qa

type Option<T> = { kind: "some"; value: T } | { kind: "none" };
const some = <T>(value: T): Option<T> => ({ kind: "some", value });
const none: Option<never> = { kind: "none" };
const show = <T>(o: Option<T>): string => (o.kind === "some" ? `Some(${o.value})` : "None");

// 값이 있으면 꺼내서 f에 넘기고, f가 돌려준 Option을 그대로 결과로 쓴다.
function bind<T, U>(o: Option<T>, f: (value: T) => Option<U>): Option<U> {
  return o.kind === "some" ? f(o.value) : none;
}

type User = { name: string; teamId: string | null };
type Team = { name: string; managerId: string };
const users = new Map<number, User>([
  [1, { name: "Alice", teamId: "core" }],
  [2, { name: "Bob", teamId: null }],
  [3, { name: "Dave", teamId: "ops" }],
]);
const teams = new Map<string, Team>([
  ["core", { name: "Core", managerId: "carol" }],
  ["ops", { name: "Ops", managerId: "erin" }],
]);
// erin은 이메일이 등록되어 있지 않다.
const emails = new Map<string, string>([["carol", "carol@example.com"]]);

const fromMap = <K, V>(map: Map<K, V>, key: K): Option<V> =>
  map.has(key) ? some(map.get(key) as V) : none;
const findUser = (id: number): Option<User> => fromMap(users, id);
const findTeam = (user: User): Option<Team> =>
  user.teamId === null ? none : fromMap(teams, user.teamId);
const findEmail = (team: Team): Option<string> => fromMap(emails, team.managerId);

for (const id of [1, 2, 3, 99]) {
  const result = bind(findUser(id), (user) =>
    bind(findTeam(user), (team) =>
      bind(findEmail(team), (email) => some(`${user.name} -> ${email}`))));
  console.log(`id ${id}: ${show(result)}`);
}

// 배열에서는 map이 배열을 겹치고, flatMap이 한 겹으로 이어 붙인다.
const nested = ["Core", "Ops"].map((team) => ["dev", "qa"].map((role) => `${team}/${role}`));
const flat = ["Core", "Ops"].flatMap((team) => ["dev", "qa"].map((role) => `${team}/${role}`));
console.log(JSON.stringify(nested));
console.log(JSON.stringify(flat));

id 1: Some(Alice -> carol@example.com)
id 2: None
id 3: None
id 99: None
[["Core/dev","Core/qa"],["Ops/dev","Ops/qa"]]
["Core/dev","Core/qa","Ops/dev","Ops/qa"]