Skip to content

Instantly share code, notes, and snippets.

View CrimsonRoselia's full-sized avatar
👎

CrimsonRoselia

👎
View GitHub Profile
-----BEGIN RSA PRIVATE KEY-----
ur a fag cube
-----END RSA PRIVATE KEY-----
@CrimsonRoselia
CrimsonRoselia / gist:f9c25496a145f30ae7c4
Created July 15, 2015 20:43
plaintext version of copypasta from /r/pitchforkemporium
ANGRY AT OP? WANT TO JOIN THE MOB? I'VE GOT YOU COVERED!
COME ONE DOWN TO /r/pitchforkemporium
I GOT 'EM ALL!
|-------------|-------------|-------------|
| Traditional | Left Handed | Fancy |
|-------------|-------------|-------------|
| ---E | Ǝ--- | ---{ |
|-------------|-------------|-------------|
using System;
using System.Collections.Generic;
using System.Collections.Concurrent;
using System.Threading;
using SpeechLib;
namespace TTS
{
public class TTSObject
{
@CrimsonRoselia
CrimsonRoselia / rekt.cfg
Last active August 29, 2015 14:18
rekt.cfg
alias rekt0 "say I'm afraid that you are:"
alias rekt1 "say ☐ NOT REKT"
alias rekt2 "say ☐ REKT"
alias rekt3 "say ☐ TYRANNOSAURUS REKT"
alias rekt4 "say ☐ SHREKT"
alias rekt5 "say ☑ ( ͡° ͜ʖ ͡°)"
alias rekt "rekt0;wait 200;rekt1;wait 200;rekt2;wait 200;rekt3;wait 200;rekt4;wait 200;rekt5"
bind l "rekt"
#!/usr/bin/env perl
use strict;
use feature 'switch';
use POSIX qw(getuid setuid setgid getpwnam);
use YAML::Syck;
no warnings; # Shut the fuck up, i dont care if given/when is experimental.
sub download_file {
import Control.Monad (liftM)
quicksort :: Ord a => [a] -> [a]
quicksort [] = []
quicksort (p:xs) = quicksort lesser ++ [p] ++ quicksort greater
where
lesser = filter (< p) xs
greater = filter (>= p) xs
main = (liftM lines . readFile) "list.txt" >>= print . quicksort
@CrimsonRoselia
CrimsonRoselia / WeechatLogParser.hs
Last active February 14, 2018 13:27
Simple log parser for weechat in haskell, unfinished
import Control.Applicative
import Data.Attoparsec.Text
import Data.Time
import Data.Text as T hiding (count, head)
import Data.Text.IO as TI (readFile)
import Data.Char (isSpace)
import System.Environment (getArgs)
data LogLine = LogLine LocalTime Text Text
header
lorom
ORG $D65E
JSL Main
NOP
ORG $D649
JSL Main
NOP
@CrimsonRoselia
CrimsonRoselia / Biobot.sql
Created June 2, 2013 15:35
Awesome SQL code
-- Copyright (c) 2013 Mr-Biohazard (at github)
-- Permission is hereby granted, free of charge, to any person obtaining a copy
-- of this software and associated documentation files (the "Software"), to deal
-- in the Software without restriction, including without limitation the rights
-- to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-- copies of the Software, and to permit persons to whom the Software is
-- furnished to do so, subject to the following conditions:
-- The above copyright notice and this permission notice shall be included in
@CrimsonRoselia
CrimsonRoselia / Properties.hs
Created May 23, 2013 19:56
Haskell code that parses json properties
{-# LANGUAGE DeriveDataTypeable #-}
module Server.Properties where
import Data.Typeable
import Data.Data
import Text.JSON
data Properties = Properties {port :: Int, message :: String} deriving (Eq, Show, Typeable, Data)
instance JSON Properties where