Fibonacci←λn{
  1ι∋n⇒nι;
  n-(1)Fibonacci+(n-(2)Fibonacci)
}

Factorial←λn{
  n=(0)⇒1;
  n-(1)Factorial(n)
}

Length←λa{
  a∅?⇒1;
  a⁰Length+(1)
}

GraphAcyclic?←λg{
  gτ∅?⇒⊤;
  g#λk,v{v∅?}∃(|)~⇒⊥;
  g GraphTearLeaf(
    g#λk,v{v∅?⇒k;⊥}ω∃(=⊥~)
  ) GraphAcyclic?
}

GraphTearLeaf←λg,l{
  gτ↓!(l)
  g#λk,v{gτset!(vπ↓(=(l))))}
  g
}

GraphAcyclic? assign function g {
  g table-empty? then true
  else g map function k, v {
    v null?
  } exists (identity) then false
  else g GraphTearLeaf (
    g map function k, v {
      v null? then k else false
    } find (= false not)
  ) GraphAcyclic?
}

GraphTearLeaf assign
function g, l {
  g table-delete! (l)
  g map function k, v {
    g table-set! (
      v remove-matching (= (1))
    )
  }
  g
}

Если единственное, что привносит новый язык программирования - это синтаксис, то его можно смело отправлять в топку, он ничего принципиально нового в программирование не даст.

Если единственное, что привносит новый язык программирования - это синтаксис, то его можно смело отправлять в топку, он ничего принципиально нового в программирование не даст.