💻

Andrew Monshizadeh amonshiz

💻

amonshiz / CountingPointMutations2.hs

Created February 15, 2015 14:58

	import qualified Bioinformatics.DNANucleotide as D

	hammingDistance :: (Eq a) => [a] -> [a] -> Int
	hammingDistance l1 l2 = length . filter (not) $ zipWith (==) l1 l2

	main = do
	string1 <- getLine
	string2 <- getLine
	let dnaString1 = map D.charToDNANucleotide string1
	let dnaString2 = map D.charToDNANucleotide string2

amonshiz / CountingPointMutations.hs

Created February 15, 2015 14:37

	import qualified Bioinformatics.DNANucleotide as D

	hammingDistance :: (Eq a) => [a] -> [a] -> Int
	hammingDistance l1 l2 = sum . map (\(f,s) -> if f == s then 0 else 1) $ zip l1 l2

	main = do
	string1 <- getLine
	string2 <- getLine
	let dnaString1 = map D.charToDNANucleotide string1
	let dnaString2 = map D.charToDNANucleotide string2

amonshiz / DNANucleotide.hs

Created February 10, 2015 02:09

Finding a Motif in DNA

	module Bioinformatics.DNANucleotide (
	DNANucleotide (..),
	charToDNANucleotide,
	nucleotideComplement,
	calculateGCContent,
	findMotif
	) where

	import Data.Char
	import Data.List

amonshiz / RNANucleotide.hs

Created January 26, 2015 01:06

	module Bioinformatics.RNANucleotide (
	RNANucleotide (..),
	charToRNANucleotide,
	rnaToProtein
	) where

	import Data.Char
	import Data.List
	import qualified Data.Map as M
	import qualified Data.Maybe as Mb

amonshiz / DNANucleotide.hs

Created January 25, 2015 16:08

	module Bioinformatics.DNANucleotide (
	DNANucleotide (..),
	charToDNANucleotide,
	nucleotideComplement,
	calculateGCContent
	) where

	import Data.Char
	import Data.List

amonshiz / fib.hs

Last active August 29, 2015 14:14

	rabbitFib :: Integer -> Integer -> Integer
	rabbitFib 0 _ = 0
	rabbitFib 1 _ = 1
	rabbitFib n k =
	rabbitFib (n-1) k + k * rabbitFib (n-2) k

amonshiz / Fibonacci.hs

Created January 25, 2015 00:46

Basic Fibonacci number implementation

amonshiz / AppDelegate.m

Created January 16, 2015 15:04

	#import "AppDelegate.h"

	@interface AppDelegate ()

	@end

	@implementation AppDelegate


	- (BOOL)application:(UIApplication )application didFinishLaunchingWithOptions:(NSDictionary )launchOptions {

amonshiz / iprb.hs

Created January 16, 2015 03:15

Introduction to Mendelian Inheritance

	mendelsFirstLaw :: Float -> Float -> Float -> Float
	mendelsFirstLaw k m n = ((k*2 - k) + (2.0 k * m) + (2.0 * k * n) + (m * n) + (0.75 * (m*2 - m))) / ((k + m + n) (k + m + n - 1))

	main = do
	k <- getLine
	m <- getLine
	n <- getLine
	putStrLn . show $ mendelsFirstLaw (read k :: Float) (read m :: Float) (read n :: Float)

amonshiz / IndependentAlleles.hs

Created January 12, 2015 04:03