Tom Streller scan
scan
/ redis-examples.rb
Created
May 10, 2012 17:23
— forked from lukemelia/redis-examples.rb
Code to accompany the blog post http://www.lukemelia.com/blog/archives/2010/01/17/redis-in-practice-whos-online/
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| require 'redis' | |
| # SADD key, member | |
| # Adds the specified <i>member</i> to the set stored at <i>key</i>. | |
| redis = Redis.new | |
| redis.sadd 'my_set', 'foo' # => true | |
| redis.sadd 'my_set', 'bar' # => true | |
| redis.sadd 'my_set', 'bar' # => false | |
| redis.smembers 'my_set' # => ["foo", "bar"] |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| db.foo.insert({ 'created at': new Date(), ooc: false, nsfw: false, body: '<p>Moo</p>\n', keywords: [ 'Moo' ], mentioned: [], tags: [], sender: { id: 'stuff', name: 'lambdadusk', 'display name': 'Lambda' } }) |
scan
/ textr.cabal
Created
May 27, 2012 10:00
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| name: textr | |
| version: 0.0.0 | |
| build-type: Simple | |
| cabal-version: >=1.6 | |
| executable textr | |
| main-is: Main.hs | |
| build-depends: base, text, bytestring, happstack-server, ixset, acid-state, safecopy, aeson |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# LANGUAGE OverloadedStrings #-} | |
| module Main where | |
| import Happstack.Server | |
| import Data.Text (Text) | |
| main :: IO () | |
| main = simpleHTTP nullConf $ ok ("{\"hello\": \"world\"}" :: Text) |
scan
/ mapgen.hs
Created
June 5, 2012 13:21
— forked from splinterofchaos/mapgen.hs
A simple roguelike map generator. Uses naiive splatter pattern to create rooms.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import System.Random | |
| import System.Console.GetOpt | |
| import System.Environment(getArgs, getProgName) | |
| type Coord = (Int,Int) | |
| type Range = (Int,Int) | |
| type Area = (Coord,Coord) -- Upper-left and lower-right bounds. |
scan
/ mapgen.hs
Created
June 7, 2012 09:55
— forked from splinterofchaos/mapgen.hs
A simple roguelike map generator. Uses naiive splatter pattern to create rooms.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import System.Random | |
| import System.Console.GetOpt | |
| import System.Environment(getArgs, getProgName) | |
| type Coord = (Int,Int) | |
| type Range = (Int,Int) | |
| type Area = (Coord,Coord) -- Upper-left and lower-right bounds. |
scan
/ YampaTest.hs
Created
June 11, 2012 13:27
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# LANGUAGE Arrows #-} | |
| module Main where | |
| import Control.Arrow | |
| import Control.Monad | |
| import Data.Maybe | |
| import Data.Monoid | |
| import Data.VectorSpace | |
| import Graphics.UI.GLUT |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# LANGUAGE Arrows #-} | |
| module Tile where | |
| import Control.Arrow | |
| import Control.Monad (void) | |
| import FRP.Yampa | |
| import Graphics.UI.SDL (Rect(..), blitSurface, Surface) | |
| data Tile = Tile !Rect Bool | |
| | AnimatedTile ![Rect] Bool |
scan
/ LenList.hs
Created
June 13, 2012 12:18
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| {-# LANGUAGE GADTs #-} | |
| module LenList where | |
| data Zero | |
| data Succ n | |
| data LenList n a where | |
| Nil :: LenList Zero a | |
| Cons :: a -> LenList n a -> LenList (Succ n) a |
scan
/ maths.scala
Created
June 30, 2012 11:44
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| abstract class InterpolationMethod(val s: Traversable[(Double, Double)]) extends (Double => Double) { | |
| protected val x_i = s.map(_._1) | |
| protected val y_i = s.map(_._2) | |
| def this(f: Double => Double, f2: Int => Double, n: Int) = this(for(i <- 0 to n) yield { | |
| val x = f2(i) | |
| (x, f(x)) | |
| }) | |
| def this(f: Double => Double, n: Int) = this(f, _.toDouble, n) |