ion1

main = average [im0, im1] ++ mask;

[im0, im1] = map (\p extract_bands 0 3 (Image_file p))
  [ "5.0 Knights of the Eternal Throne.jpg"
  , "5.10 Jedi Under Siege.jpg"
  ];

mask = 255 - min_pair 255 (20 * average diff_bands);

diff_bands = bands (on my_diff (colour_transform_to Image_type.sRGB) im0 im1)

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