Skip to content

Instantly share code, notes, and snippets.

@fffej

fffej/gist:390463

Created May 5, 2010 06:39
Show Gist options
  • Save fffej/390463 to your computer and use it in GitHub Desktop.
Save fffej/390463 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.hs
main = do
x <- emptyGrid 80
y <- emptyGrid 80
u <- emptyGrid 80
v <- emptyGrid 80
defaultMain [
bgroup "Mutable Fluids" [
bench "Project" $ nfIO (project x y u v)
,bench "SetBnds" $ nfIO (setBnd 2 x)
]]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment