ion1

shellquote() {
  local space=
  for arg; do
    printf '%s' "$space"
    printf '%s' "$arg" | sed -e "s/'/'\\\\''/g; s/^/'/; s/\$/'/;"
    space=' '
  done
  printf '\n'
}

ion1

// ==UserScript==
// @name         SPJ Discord
// @namespace    https://example.net/
// @version      0.1
// @description  SPJ Discord
// @author       ion
// @match        *://discordapp.com/*
// @grant        none
// ==/UserScript==

ion1

Emulating the elegance of JavaScript's new Array in Haskell

What does new Array(x) do? Trick question. It does different things depending on whether x is an integer or something else.

I wanted to replicate this elegant functionality in Haskell: behold.

ion1

SWTOR Resource Gathering Nodes

Archaeology / Artifact Fragment:
? Prehistoric Archaeological Find
 1 Lost Artifact Fragment               Lost Archaeological Find
 2 Sacred Artifact Fragment             Sacred Archaeological Find
 3 Ancient Artifact Fragment            Ancient Archaeological Find
 4 Galactic Artifact Fragment           Galactic Archaeological Find
 5 Hypertech Artifact Fragment          Alien Archaeological Find, Hypertech Archaeological Find
 6 Primeval Artifact Fragment           Primeval Archaeological Find

ion1

> :set -XGADTs -XDataKinds
> data Nat = Z | S Nat
> data Vect n a where { Nil :: Vect 'Z a; (:-) :: a -> Vect n a -> Vect ('S n) a }
> :t () :- Nil
() :- Nil :: Vect ('S 'Z) ()
> :t \(a :- Nil) -> a

<interactive>:1:16:
    Couldn't match expected type `r' with actual type `t1'
      `r' is untouchable

ion1

{-# LANGUAGE FlexibleContexts #-}

import Control.Monad.State
import Test.QuickCheck

main = do
  print $ runBiquad' 1 0 0 (-1) (-1) [1,0,0,0,0,0,0,0,0,0,0,0]

  quickCheck $ \xs -> (dif . int) xs == xs
                   && (int . dif) xs == xs

ion1

import Data.Functor.Contravariant

data Foo a = Foo (a -> Integer)

data Bar a = Bar ((a -> Integer) -> Integer)

data Baz a = Baz (((a -> Integer) -> Integer) -> Integer)

foo :: (b -> a) -> (a -> Integer) -> (b -> Integer)
foo f g = _

ion1

A shameless plug of my SWTOR referral code: http://www.swtor.com/r/Hyrstd

Useful information about SWTOR

• Free to Play (F2P), Preferred, and Subscriber Info
• From Subscription to Free Account in SWTOR
• SWTOR Storyline Progression
• SWTOR, tips and tricks, Reddit edition!
• Crew Skills Guide
• Star Wars: The Old Republic Class Guides & Talent Builds

ion1

Google apps for your non-Nexus phone

They are generally better than the alternatives installed by your vendor.

• Calendar
• Camera
• Chrome
• Clock
• Keyboard
• Launcher

ion1

Trying to derive an equation for e from df(x)/dx = f(x)

Exists f.

df(x)/dx = f(x)

lim{y→0} (f(x+y) − f(x)) / y = f(x)

lim{y→0} f(x+y) − f(x) − y f(x) = 0