I hereby claim:
- I am crabmusket on github.
- I am crabmusket (https://keybase.io/crabmusket) on keybase.
- I have a public key ASC8gXuUziw0CsDZ1i5l0XQoHZmIdciVmtULjMDwc5qeowo
To claim this, I am signing this object:
import Control.Monad (forever) | |
import Control.Concurrent (forkIO, killThread) | |
import qualified Data.ByteString.Char8 as B | |
import System.Hardware.Serialport | |
(openSerial, recv, closeSerial, defaultSerialSettings) | |
port = "COM1" -- Windows | |
--port = "/dev/ttyUSB0" -- Unix | |
main = do |
-- Imports for serial port | |
import qualified Data.ByteString.Char8 as B | |
import System.Hardware.Serialport | |
(openSerial, recv, closeSerial, defaultSerialSettings) | |
-- Imports for threading and stuff | |
import Control.Monad (void, forever, mapM_) | |
import Control.Concurrent (forkIO, killThread) | |
import Control.Concurrent.Chan | |
(Chan, newChan, dupChan, writeChan, getChanContents) |
import qualified Data.ByteString.Char8 as B | |
import System.Hardware.Serialport (SerialPort, recv) | |
recvLn :: SerialPort -> IO B.ByteString | |
recvLn s = do | |
-- Receive one byte at a time. | |
first <- recv s 1 | |
rest <- if first == B.singleton '\n' | |
then return $ B.empty | |
else recvLn s |
import qualified Data.ByteString.Char8 as B | |
import Criterion.Main | |
import Data.IORef | |
import Data.Vector | |
import Data.ByteString.Char8 (ByteString) | |
import Control.Monad (forever) | |
import Pipes | |
import qualified Pipes.Prelude as P | |
import Data.Char (intToDigit) | |
import qualified Data.ByteString.Builder as Builder |
module Numeric.Units.Dimensional.ConstantArithmetic where | |
import qualified Prelude | |
import qualified Numeric.Units.Dimensional | |
import Numeric.Units.Dimensional.Prelude | |
a *. b = a * (b *~ one) | |
a .* b = (a *~ one) * b | |
a .*. b = (a *~ one) * (b *~ one) |
import Numeric.LinearAlgebra | |
import Control.Monad (replicateM) | |
import System.Random (randomIO) | |
import Graphics.Gnuplot.Simple (plotFunc) | |
-- Test 100 random lines for convexity. | |
main = replicateM 100 $ do | |
-- Two 5x5 symmetric positive definite matrices that determine the line. | |
a <- randomSnPD 5 | |
v <- randomSnPD 5 |
-- A list of possible dates Cheryl's birthday might be on. | |
possibilities = [(May, 15), (May, 16), (May, 19), | |
(June, 17), (June, 18), | |
(July, 14), (July, 16), | |
(August, 14), (August, 15), (August, 17)] | |
-- We say we know the actual date when the list of possibilities is singular. | |
know ps = length ps == 1 | |
-- Telling someone the month or day will reduce the possibilities. |
'use strict'; | |
// Mercury is a 'truly modular frontend framework'. This helpful import gets | |
// us a lot of top-level symbols from submodules it re-exports. | |
var hg = require('mercury'); | |
// Like this one - h is a short constructor for HTML elements. | |
var h = require('mercury').h; | |
// And since we'll be running this in a browser using beefy, we need a reference | |
// to the document. | |
var document = require('global/document'); |
I hereby claim:
To claim this, I am signing this object: