Skip to content

Instantly share code, notes, and snippets.

View jdiez17's full-sized avatar

José Manuel Díez jdiez17

76 followers · 0 following
View GitHub Profile
@jdiez17
jdiez17 / gist:11093934
Created April 19, 2014 18:56
type Connection struct {
socket io.ReadWriteCloser
listeners []chan []byte
outgoing chan []byte
}
@jdiez17
jdiez17 / gist:11409140
Created April 29, 2014 19:10
[jdiez@InfiniteImprobabilityDrive ~]$ openssl s_client -connect api.github.com:443
CONNECTED(00000003)
depth=1 C = US, O = DigiCert Inc, OU = www.digicert.com, CN = DigiCert SHA2 High Assurance Server CA
verify error:num=20:unable to get local issuer certificate
verify return:0
---
Certificate chain
0 s:/C=US/ST=California/L=San Francisco/O=GitHub, Inc./CN=*.github.com
i:/C=US/O=DigiCert Inc/OU=www.digicert.com/CN=DigiCert SHA2 High Assurance Server CA
1 s:/C=US/O=DigiCert Inc/OU=www.digicert.com/CN=DigiCert SHA2 High Assurance Server CA
@jdiez17
jdiez17 / thing.css
Created May 18, 2014 22:26
body {
font-family: "Open Sans", sans-serif;
}
@jdiez17
jdiez17 / result.json
Last active August 29, 2015 14:01
{
"result": [
{
"hash": "7f40b49335b9",
"items": [
{
"compression": 1.0,
"extras": [],
"files": [
{
@jdiez17
jdiez17 / gist:ffa24cb9fae0b2609b0b
Last active August 29, 2015 14:01
module Sudoku where
import Control.Monad (guard)
data Digit = D1 | D2 | D3 | D4 | D5 | D6 | D7 | D8 | D9
deriving (Eq, Ord, Read, Enum)
mkDigit :: Int -> Maybe Digit
mkDigit n
| n > 0 && n < 10 = Just $ toEnum (n-1)
@jdiez17
jdiez17 / gist:8b0384e99ddfbaa09d95
Created May 28, 2014 18:32
module Sudoku where
import Control.Monad (sequence)
data Digit = D1 | D2 | D3 | D4 | D5 | D6 | D7 | D8 | D9
deriving (Eq, Ord, Read, Enum)
mkDigit :: Int -> Maybe Digit
mkDigit n
| n > 0 && n < 10 = Just $ toEnum (n-1)
@jdiez17
jdiez17 / gist:25137e998dc31cdd81a7
Created May 28, 2014 20:23
module Sudoku where
import Data.List (intersperse, nub, transpose, (\\))
import Control.Applicative ((<$>))
import Control.Monad (sequence, mapM, guard)
data Position = Position Int Int
{- D0 is "Unknown" -}
data Digit = D0 | D1 | D2 | D3 | D4 | D5 | D6 | D7 | D8 | D9
@jdiez17
jdiez17 / gist:d0c6f50a5e8dbde4d740
Created May 28, 2014 20:40
itemsInSquare :: Sudoku -> Position -> [Digit]
itemsInSquare (Sudoku rows) (Position x y) = [y'..y'+2] >>= (\idx -> take 3 $ drop x' $ rows !! idx)
where x' = x - x `mod` 3
y' = y - y `mod` 3
@jdiez17
jdiez17 / gist:9f5940c84c0a802af011
Created May 28, 2014 21:16
module Sudoku where
import Data.List (intersperse, nub, transpose, (\\), minimumBy)
import Control.Applicative ((<$>))
import Control.Monad (sequence, mapM, guard)
type Position = (Int, Int)
{- D0 is "Unknown" -}
data Digit = D0 | D1 | D2 | D3 | D4 | D5 | D6 | D7 | D8 | D9
@jdiez17
jdiez17 / gist:cc025b2043d0ce4593ff
Created May 28, 2014 21:42
module Sudoku where
import Data.List (intersperse, nub, transpose, (\\), minimumBy)
import Control.Applicative ((<$>))
import Control.Monad (sequence, mapM, guard)
type Position = (Int, Int)
{- D0 is "Unknown" -}
data Digit = D0 | D1 | D2 | D3 | D4 | D5 | D6 | D7 | D8 | D9