Как преобразовать эту карту/карту карты в понимание в Clojure?

Question

Учитывая this Scala code:

def compute2(maybeFoo: Option[Foo]): Option[Int] = 
    maybeFoo.flatMap { foo => 
    foo.bar.flatMap { bar => 
     bar.baz.map { baz => 
     baz.compute 
     } 
    } 
    } 

, который затем переводится на это для понимания:

def compute2(maybeFoo: Option[Foo]): Option[Int] = 
    for { 
    foo <- maybeFoo 
    bar <- foo.bar 
    baz <- bar.baz 
    } yield baz.compute 

Мой вопрос Как преобразовать эту карту/flatMap в для понимания в Clojure?

Предположения:

• Если возможно, я хотел бы использовать идиоматические Clojure (т.е. mapcat), чтобы представить это, а не algo.monads/fluokitten библиотек. Но если это лучший способ сделать это (я открыт для обучения), то используйте это.

Answer 1

Вы, вероятно, не будет использовать Option в Clojure, но если объекты внутри коллекции что-то, как это должно работать:

(let [maybe-foo [{:bar [{:baz [(fn [] 42)]}]}]] 
    (for [foo maybe-foo 
     bar (:bar foo) 
     baz (:baz bar)] 
    (baz))) 
;=> '(42) 

(let [maybe-foo [{:bar nil}]] 
    (for [foo maybe-foo 
     bar (:bar foo) 
     baz (:baz bar)] 
    (baz))) 
;=> '() 

(let [maybe-foo nil] 
    (for [foo maybe-foo 
     bar (:bar foo) 
     baz (:baz bar)] 
    (baz))) 
    ;=> '()