dodadoa/hangman.hs

Created September 22, 2018 06:39

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/dodadoa/37c2d7e0f9f8e7c86689e269f991a3d8.js"></script>
Save dodadoa/37c2d7e0f9f8e7c86689e269f991a3d8 to your computer and use it in GitHub Desktop.

Download ZIP

Raw

	import Data.List

	hangman :: [Char] -> [Char] -> Bool
	hangman sw lc = sw == (sw `intersect` lc)

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment