Skip to content

Instantly share code, notes, and snippets.

View async.js
function findOrCreate(id) {
return Promise.try(function() {
return db.find(id);
}).then(function(result) {
if (result == null) {
return db.create(id);
} else {
return result;
}
});
@L8D
L8D / app.js
Last active Aug 28, 2015
Setting ExpressJS server timeout using best practices
View app.js
var express = require('express'),
http = require('http'),
app = express();
var server = http.createServer(app);
var timeout = 0;
server.setTimeout(timeout, function() {
server.listen(app.get('port'), function() {
View gist:8980539
test :: Num a => [a] -> [a]
test = filter $ (== 0) . (`mod` 2)
@L8D
L8D / cat.hs
Last active Aug 29, 2015 — forked from Siim/cat.hs
View cat.hs
import System.Environment (getArgs)
main = do
args <- getArgs
if null args then interact id else mapM ((>>= putStr) . readFile) args
View weird-adder.hs
-- weird-adder.hs - Josh Sandlin - 6:45PM - 2/14/2010
-- wierd-adder.hs - Tenor Biel - 12:09PM - 2/13/201
-- Really weird way to add a range of numbers
-- takes an upper limit and returns a list of pairs
pairedRange :: Int -> [(Int, Int)]
pairedRange x = zip (filter odd [1..x]) (filter even [1..x])
-- adds a list of pairs
addPairs :: Num a => [(a, a)] -> [a]
View fizzbuzz.hs
main = putStr . unlines . map fizzbuzz $ [1..100]
divBy = ((== 0) .) . mod
fizzbuzz :: Int -> String
fizzbuzz x | x `divBy` 15 = "FizzBuzz"
| x `divBy` 5 = "Buzz"
| x `divBy` 3 = "Fizz"
| otherwise = show x
@L8D
L8D / code-sourcer.hs
Created Mar 7, 2014
MTG Picture-sourcer for untap.in
View code-sourcer.hs
parseLine = fmap tail . break (== ' ')
editLine = fmap f where
f s = s ++ "^http://mtgimage.com/card/" ++ s ++ ".jpg"
writeLine (x, y) = x ++ " " ++ y
main = interact $ unlines
. map ( writeLine
. editLine
@L8D
L8D / gist:7911fbaf0ad1b5642cd5
Last active Aug 29, 2015
Some MTG rules-enforced environment simulator concept prototypes
View gist:7911fbaf0ad1b5642cd5
import qualified Data.Set as S
data Color
= White
| Blue
| Black
| Red
| Green
deriving (Enum, Eq, Ord)
View vimrc
" setup NERDTree button
nnoremap <silent> <leader>m :NERDTreeToggle<enter>
" map ctrl+hjkl to c-w movements
map <C-h> <C-w>h
map <C-j> <C-w>j
map <C-k> <C-w>k
map <C-l> <C-w>l
" pathogen stuff
View gist:e7e5a12171fd363c15a0
<p>
Lorem ipsum dolor sit amet, consectetur adipiscing elit. Donec fermentum
nec ante eget suscipit. Nullam gravida viverra quam a maximus. Proin nunc
massa, auctor id arcu a, imperdiet placerat tortor. Maecenas eget tristique
odio. Nullam fermentum orci erat, sed ultrices nunc volutpat sit amet. Duis
id nunc nisi. Morbi placerat eros in pretium dignissim. Mauris lacinia,
diam vitae euismod cursus, ligula ex vehicula nulla, vitae convallis nibh
sem ac velit. Nulla facilisi. Ut consectetur id mauris nec fermentum. Cras
nec cursus justo. Donec tempus quam nunc, sed faucibus lacus vulputate vel.
Integer egestas ex ut neque tristique dictum. Phasellus ut nulla mauris.
You can’t perform that action at this time.