alogic0

import Data.Ratio

mS=19891*10^26 % 1  --in kg Sun mass
mE=597219*10^19 % 1 --in kg Earth mass
rE=6371000 % 1      --in m Earth radius
tE=3652564 % 10000  --in days Earth siderial year
mM=73477*10^18 % 1  --in kg Moon mass
rM=1737500 % 1      --in m Moon radius
aU=149597870691 % 1 --in m distance to Sun
gN=6673 % (10^14)   --in m3/(kg*s2) gravitational constant G

alogic0

-- author [Roman Cheplyaka](http://www.reddit.com/r/haskell/comments/2y2f1p/pager_in_ghci_like_less/cp5w8a9)
import System.Process
import System.Posix.IO
import System.Posix.Types
import Data.IORef
import Data.List  (intersperse)
import System.IO.Unsafe

{-# NOINLINE pid_ref #-}
pid_ref :: IORef (ProcessHandle, Fd)

alogic0

// To auto-click the big cookie at a set interval, use:
var autoClicker = setInterval(Game.ClickCookie, 50);

// To end this effect, use:
clearInterval(autoClicker);

//This will spawn a golden cookie
Game.shimmerTypes.golden.time = Game.shimmerTypes.golden.maxTime;

// If you just want to set the amount of golden cookies clicked, use:

alogic0

-- See this document for more information on making Pong:
-- http://elm-lang.org/blog/Pong.elm
-- Compile this code on http://elm-lang.org/try

import Color exposing (..)
import Graphics.Collage exposing (..)
import Graphics.Element exposing (..)
import Keyboard
import Mouse
import Text

alogic0

lst = [206.51]
     ++ replicate 5 135.93
     ++ replicate 15 160.4
     ++ replicate 2 190.25
     ++ [1586.42] 

debt = sum lst
-- m
m = [-3000]

alogic0

num48 = 999999999999999999999998999999999999999999999999
strNum24 = replicate 47 '0' ++ show (10 ^ (58*48) `div` num48)
 
chunks _ [] = []
chunks n xs = let (h, t) = splitAt n xs in h : chunks n t
 
result24 = putStr $ unlines $ map (unwords . chunks 24) $ chunks 48 strNum24
--------
fibs :: [Integer]
fibs = 0:1: zipWith (+) fibs (tail fibs)

alogic0

module Nptel_ass2_test_hunit
where

import Test.HUnit
import Test.Hspec
import Test.Hspec.Contrib.HUnit 
-- Name of your file with the assignment
-- without trailing .hs
import Nptel_ass2

alogic0

module Nptel_ass2_test_hspec where

import Nptel_ass2
import Test.Hspec

main :: IO ()
main = hspec $ do
  describe "Assignment 2" $ do
    describe "ramanujan" $ do
        it "Test Case 1" $ do

alogic0

module Families where
import System.Random
import Control.Monad
import Data.List

numPop = 20
num = numPop `div` 2

type Generation = [Pair]
data Pair = Pair {husband::Person, wife::Person, idFamily::Int}

alogic0

##Building hmatrix on Windows 7

Replace minghc-7.10.2-x86_64\ghc-7.10.2\mingw with mingw from x86_64-mingw32-gcc-4.6.3-release-c,c++,fortran-sjlj.zip Here you have a full Fortran compiler, not shipped with minghc-7.10.2. So you should have the following

$ gcc --version
gcc.exe (niXman's build) 4.6.3