Attrac-0.1.3: SprottCodes.hs

module SprottCodes where

import Data.Char

codes =
 [	"IQDFKLQTIPQINQINWSSPNJTROQIOVQF",
	"IMIGPMGPLQRHNVKLETWGMFESSIHUORQ",
	"IFHTXHLVDKYSIPTUFJCFCLJGVQVHLYF",
	"IFJLRNTKMSNJOXRDYPVEOOVTPLMGEAC",
	"IGMNIKFCCNCPQFCJRQFUALCCLJPYVYD",
	"IGNXQDPRVJPMBASUKJCRDRWVTDRQTTD",
	"IGVQYNBNOMJCSSJIBFIDXWGGCWUOACV",
	"IHHFGLDKRNJIYWJPMWNUOKJMLAAHQQD",
	"IHJJDTICQIJETXFYNUSJKJSXGADBDKR",
	"IHJNHTBGIFNDQMDOYWRYYTFSSRXQBEK",
	"IHORHNHPPRVIVNNJUYHHMMJEWMMSUEU",
	"IIPPSGTMPCELDIPWPUPJCNQNFOBCYCK",
	"IJEKESGYYFWLOGVKLMEWJMBKHSOIVTI",
	"IJIFTNNCYIGTVRLCMNJLKUQDGJIQSJC",
	"IJKRADSXGDBHIJTQJJDICEJKYSTXFNU",
	"IJMUYUNOXHMLLOJREMMWFJRWTHSVXOL",
	"IJMYRKHSAUVRKPFVIJDMANDCIGJTIOB",
	"IJVSURQUIINRDBRJAWRAKMLAHHUAOON",
	"IKNXVQUEXYETWOOSGNSBDMHTMCPFLNG",
	"IKRTYCFPFLTLSMOKRPEKMGPQHMUQYGY",
	"ILITWKWUUUQIVQTIUWOLCNGELBMKGXC",
	"ILNQAAYRNMTGVRVNPUNNKQFRBBTTYEW",
	"ILRRHAEYWNTPWFLHTCSLYLFAKQITQTW",
	"ILSQGYJJPISRVKJNPEXGIOSFDRQYGLO",
	"ILURCEGOHOIQFJKBSNYGSNRUKKIKIHW",
	"ILXRNRBKDJISQKAHRGWUTJONSIKVUBC",
	"IMDBUAMMCSMTVFMONEEUDNEISFXDLCJ",
	"IMROJCCRWSIMRPTLLENELIVYDEFWQHR",
	"IMTISVBKHOIJFWSYEKEGYLWJKEOGVLM",
	"IMYTXUJFERAEQWGBOYONOKBMHUVVXSX",
	"INBSGKIRPRTKOEHRHUUGUHUQJNUSMOF",
	"INDIJZIDVPJTZFFKYFLLJRPWFSHRKKU",
	"INDVLLVRFLHPLLFCREMPLGLWNAFRPST",
	"INSIUROMOJQIEEHYJKLRKQWULFDDGVB",
	"IOHGWFIHJPSGWTOJBXWJKPBLKFRUKKQ",
	"IOLORGSFDQYLISYPSQGJJRGINXVKJPE",
	"IOQRYLZUZAQKSKBLLHVHOLNWOMRLXMI",
	"IPGPJYPMITFPTBEEDRWRTUGSXCJFTWE",
	"IPWRRDUTWIKBCTXUMTHLELPHJPADMQC",
	"IQCBIKKBNREKJEWFTMAJYFGIEBHLFEH",
	"IRQEDYQNTRPNDHNWNOFJOOLNTEEBPSA",
	"ISKKGLKSUNOQLCDKUOBPINHIDBKPOKR",
	"ISNQBNOJFJWMPQDTTFNMNNOISRYCDUN",
	"IUWECTGSXJFPTFYIGPJPMPRTEWTBEDR",
	"IWDWOGDGWGORJOBTUHFQBPRNTCBYQHP",
	"IWHVUQKFCDAJPIATNPSLSFPLLUUGMGM"]

readCode s = map (\c -> (fromIntegral (ord c - ord 'M'))*0.1) (tail s)