提出 #54934058

---

ソースコード 拡げる

(defn process [a b c s status]
  (let [ch (IO.Raw.get-char)]
    (cond
      (= status 1)
        (if (= ch (clamp 48 57 ch))
          (process (+ (* a 10) (- ch 48)) b c s 1)
          (process a b c s 2)
        )
      (= status 2)
        (if (= ch (clamp 48 57 ch))
          (process a (+ (* b 10) (- ch 48)) c s 2)
          (process a b c s 3)
        )
      (= status 3)
        (if (= ch (clamp 48 57 ch))
          (process a b (+ (* c 10) (- ch 48)) s 3)
          (process a b c s 4)
        )
      (if (= ch 10)
        [(Int.prn (+ (+ a b) c)) (String.from-chars &s)]
        (process a b c (Array.push-back s (Char.from-int ch)) 4)
      )
    )
  )
)

(def result (process 0 0 0 [(Char.from-int 32)] 1))
(def result2 (String.concat &result))
(IO.println &result2)

提出情報

コンパイルエラー

[RUNTIME ERROR] 'out/Untitled' exited with return value -11.
bash: line 2:     2 Segmentation fault      (core dumped) carp -b --optimize Main.carp 1>&2

ジャッジ結果