AC
Терминальное условие по задумке, это иф с проверкой сообщения
(ns concurrentCore
(:require [clojure.core.async :refer [>! <! >!! <!! go-loop go thread chan close!]]))
(def generate-random-number
(partition 20 (take 100 (repeatedly #(rand-int 1000)))))
(def msg-chan (chan))
(def answer-chan (chan))
(defn search-number [array number]
(let [array-part-1 (vec (nth array 0))
array-part-2 (nth array 1)
array-part-3 (nth array 2)
array-part-4 (nth array 3)
array-part-5 (nth array 4)]
(println array-part-1)
(println "P IDET V GO")
(go-loop []
(println "P vnutri go-loop")
(if (= (<!! msg-chan) "I found a number!")
(println "I am a process 1 and i finished!")
(do
(println "P vnutri if")
(if (some #(= number %) array-part-1)
(do
(println "P vnutri loop")
(>!! msg-chan "I found a number!")
(let [index-of-number (.indexOf array-part-1 number)]
(>!! answer-chan (str "The index of found number is: " index-of-number))))
(println "I am a process 1 and i have not a number in my array's part!"))))
(recur))
(println (<!! answer-chan))
(close! msg-chan)
(close! answer-chan)))
(comment
(search-number generate-random-number 175)
)