-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathpmch.hs
More file actions
18 lines (15 loc) · 681 Bytes
/
pmch.hs
File metadata and controls
18 lines (15 loc) · 681 Bytes
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
-- This program is free software. It comes without any warranty, to
-- the extent permitted by applicable law. You can redistribute it
-- and/or modify it under the terms of the Do What The Fuck You Want
-- To Public License, Version 2, as published by Sam Hocevar. See
-- http://sam.zoy.org/wtfpl/COPYING for more details.
import Rosalind
factorial :: Integer -> Integer
factorial n = product [1..n]
main = do
contents <- readFile "pmch.txt"
let fasta = parse contents
let rnas = snd $ unzip fasta
let counts = count $ rnas !! 0
print $ factorial (fromIntegral $ defaultLookup 1 'A' counts)
* factorial (fromIntegral $ defaultLookup 1 'G' counts)