Minesweeper

Challenge Overview

Add the numbers to a minesweeper board.

Visit the minesweeper exercise on Exercism to read the full instructions and download the exercise files.

Community Solutions

View Community Solutions

The following are the top 3 community solutions by stars:

Solution 1 by @hoyajigi (⭐ 5) — View on Exercism
Solution 2 by @Mlinzo (⭐ 0) — View on Exercism
Solution 3 by @rakhimov (⭐ 0) — View on Exercism

Source: Exercism haskell/minesweeper

💡 View Solution

module Minesweeper (annotate) where

import Data.Char (intToDigit)

annotate :: [String] -> [String]
annotate m = zipWith (zipWith toChar) mines adj
  where
    mines = (map . map) (== '*') m
    adj = smooth . (map . map $ fromEnum) $ mines
    toChar True _  = '*'