Шерзод

Это происходит потому что у тебя в начале проходит цикл до того момента пока i не становится равной 3, но при этом addEventListener не срабатывает (он работает только при клике).
А когда ты кликаешь срабатывает addEventListener где i уже равно 3

Находишь кнопку в коде и задаёшь id (атрибут "id="твой любой id")
В js с помощью getElementById("твой id кнопки") добавляешь кнопку в переменную. Точно также делаешь с цифрой которая меняется.


Пример (Updated):

HTML:

<div id="counter">
<input type="button" id="buttonCountPlus" value="+">
<div id="buttonCountNumber">1</div>
<input type="button" id="buttonCountMinus" value="-">
</div>

<div id="calculation">150</div> // 150 просто число для наглядности вычисления

JavaScript:

let calculate = document.getElementById("calculation");
let count = document.getElementById("buttonCountNumber");
calculation = document.getElementById("calculation").innerHTML;

document.getElementById("buttonCountPlus").onclick = function() {
  let countPlus = count.innerHTML;
  if(+countPlus <= 3){
    count.innerHTML++;
    let countPlus = count.innerHTML;
    calculate.innerHTML = calculations(countPlus) ;
  }
}

document.getElementById("buttonCountMinus").onclick = function() {
  let countMinus = count.innerHTML;
  if(+countMinus >= 2){
    count.innerHTML--;
    let countMinus = count.innerHTML;
    calculate.innerHTML = calculations(countMinus) ;
  }
}

calculations = (count) => {
  return calculation+` * ${count} = ` + (+count)*(+calculation);
}

Всё верно:

Prelude> myFun = map (^2)
Prelude> myFun [1, 2, 3, 4]
[1,4,9,16]

Или так

λ> myfun = (^2)
λ> myfun <$> [1, 2, 3]
[1,4,9]

λ> myfun = (^2)
λ> map myfun [1, 2, 3]
[1,4,9]

Что больше подходит под определение

Есть функция:
pow2 x = x ^ 2

Есть такой список:
[1, 2, 3, 4, 5]

Как вызвать функцию для всех элементов списка

Хотя еще

squares :: Num a => [a] -> [a]
squares lst = do
    x <- lst
    return (x ^ 2)

squares' :: Num a => [a] -> [a]
squares' lst = lst >>= \x -> return (x ^ 2)

squares'' :: Num a => [a] -> [a]
squares'' lst = [x ^ 2 | x <- lst]

fx f lst = [f x | x <- lst]

main = do 
  print $ fx (^2)   [1, 2, 3]
  print $ squares   [1, 2, 3]
  print $ squares'  [1, 2, 3]
  print $ squares'' [1, 2, 3]

Совсем по-простому (ооочень упрощенно)

module Main where

import System.IO

main :: IO ()
main = do
  content <- readFile "file.dat"
  putStrLn content

  putStr "enter x = "

  -- Флюшим вывод не забываем про ленивость языка
  hFlush stdout 

  x <- getLine 

  print (read x :: Int)

  writeFile "file.dat" x

Остальное сам в рамках понимания языка.

О Haskell по-человечески (Д.Шевченко)
https://www.ohaskell.guide

А.Холомьев (более продвинутое)
https://anton-k.github.io/ru-haskell-book/book/hom...

Ну и Липовача learnyouahaskell.com есть на русском
Уилл Курт "Программируй на haskell" тоже.

Все остальное (а это мноого чего) скорее для тех кому это нужно.
В любом случае можно поискать ответы тут https://wiki.haskell.org/Haskell

Например начать с https://wiki.haskell.org/Introduction_to_IO там далее есть секция
Further reading

Надо вот это --> For a comprehensive tutorial on using IO monad, look at the Haskell I/O inside: Down the Rabbit's Hole