Napisz program sprawdzający, czy liczba naturalna wpisana z klawiatury jest liczbą pierwszą. Skonstruuj algorytm zgodny ze schematem blo- kowym przedstawionym na rysunku 1.1.​

Na twoje szczęście znalazłem w koszu.

Chyba nieszczęście, kosz to było znakomite miejsce dla tego kawałka kodu, powinien tam wrócić. Nie chce mi się pisać ile jest tu błędów, poczynając od dziwnej nazwy funkcji, bezsensownego typu parametru, i, co chyba najważniejsze, działanie całkowicie odmienne od podanego schematu.

Mało kto tu lubi dawać gotowce. Jak nie wkleisz żadnego kodu co już masz to dostaniesz tylko żadnej sensownej odpowiedzi. Ewentualnie kod w Haskellu do

main = do 
  line <- getLine
  putStrLn $ prime (read line :: Integer) 2

prime :: Integer -> Integer -> String
prime n i
  | n < i * i      = "TAK"
  | n `mod` i == 0 = "NIE"
  | otherwise      = prime n (i + 1)