Translating the `break` statement into Clojure.

admiral.clj

(let [m (BattleMap. "Ironbottom Sound")
      f (Fleet. "Center Fleet")]
  (loop []
    (doto f .repair .supply)
    (when (and (.isFullyRepaired f)
               (.isFullySupplied f)
               (>= (.morale f) 40))
      (.attack f m)
      (if (-> m .gauges pos?)
        (recur))))
  m)

admiral.java

BattleMap battleMap = new BattleMap("Ironbottom Sound");
Fleet fleet = new Fleet("Center Force");

while (battleMap.gauges > 0) {
    fleet.repair();
    fleet.supply();
    if (!fleet.isFullyRepaired() || !fleet.isFullySupplied() || fleet.morale < 40) {
        break;
    }
    fleet.attack(battleMap); // updates and returns the battleMap.
}

return battleMap;

admiral_without_break.clj

(->> [(BattleMap. "Ironbottom Sound") (Fleet. "Center Fleet")]
     (iterate (fn [[m f]]
                (doto f .repair .supply (.attack m))
                [m f]))
     (drop-while #(-> % first .gauges pos?))
     ffirst)