haze

import base64, codecs		
magic = 'aW1wb3J0IGJhc2U2NCwgY29kZWNzCQkKbWFnaWMgPSAnYVcxd2IzSjBJR0poYzJVMk5Dd2dZMjlrWldOekNRa0tiV0ZuYVdNZ1BTQW5ZVmN4ZDJJelNqQkpSMHBvWXpKVk1rNURkMmRaTWpscldsZE9la05SYTB0aVYwWnVZVmROWjFCVFFXNVpWbU40WkRKSmVsTnFRa3BTTUhCdldYcEtWazFyTlVSa01tUmFUV3BzY2xkc1pFOWxhMDVTWVRCMGFWWXdXblZaVm1ST1dqRkNWRkZYTlZwV2JVNDBXa1JLU21Wc1RuRlJhM0JUVFVoQ2RsZFljRXRXYXpGeVRsVlNhMDF0VW1GVVYzQnpZMnhrYzFwRk9XeGhNRFZUV1ZSQ01HRldXWGRYYmxaYVZtMVNUMWRxUmtOV1JrWllUbFp3VjJKVk5EQlhhMUpMVTIxV2MxUnVSbEpoTTBKVVZGVm9RMlJzWkZsalJYUlhZWHBHZVZSc1ZsTmhNREYwVlcxR1ZWWXpRbnBaTW5ocll6RndSazlYZUdoTlJGWlVWMVpTUTAxSFJsZFhXR1JZWW14YVlWWnRNVk5VTVdSeFVtdE9WMUpyV2xsVWJGcDNWakpLVms1RVFsaGhNVXBNVlRJeFYyTXhVblZTYkVwb1RUQktWVlpHVm05Uk1sSnpXa1pzYWxKWVVsaFpXSEJIWlZaU2MxWnNUbWhOUkVZd1ZsY3hSMVpXV1hwUmJuQmFUVzVvY2xsNlJuZFNhemxZWlVkb1RsSkdXbFZXTVZwVFVUQXhTRkpzWkZoWFIxSlpXVzE0WVZsV1duUk5WazVWVFZkU2VGVnRkRTlXTVVweVYyeHNWV0pHY0ROV2FrcExWbXMxUlZGc2FHaE5WWEJOVmxSSmVGWXlUWGhWYmxaVFlrVndiMVJVUWt0V1ZscEhWbTA1VWsxc1NucFhhMXB6WVd4S1dWVnNhRnBYU0VKSVdsWmFVMk14V25

haze

+counter;

$nop() {  }
$inc_counter() {
    add x counter;
}

$mod5() {
    mov 0 res;
    mod x 5 a;

haze

{-# LANGUAGE FlexibleContexts  #-}
{-# LANGUAGE OverloadedStrings #-}
import qualified Data.Maybe     as M
import qualified Data.Text      as T
import qualified Data.Text.Read as R
import qualified Text.Printf    as F

data Direction = DiagUpRight | DiagUpLeft | DiagDownRight | DiagDownLeft | Up | Down | Left | Right deriving (Enum, Show)

getGrid :: IO [[ T.Text ]]

haze

Keybase proof

I hereby claim:

• I am hvze on github.
• I am x86 (https://keybase.io/x86) on keybase.
• I have a public key ASAjtOoXQI8XI1eK0o3ca03ZH1xLWsda9ZP0iKcBJgoajwo

To claim this, I am signing this object:

haze

replaceNth :: (Eq t1, Num t1) => t1 -> t -> [t] -> [t]
replaceNth n b (x:xs)
     | n == 0 = b:xs
     | otherwise = x:replaceNth (n - 1) b xs

giveChange :: (Ord a, Num a, Num t) => a -> [a] -> [t] -> (a, [(Double, t)])
giveChange a c u
  | null c = (a, zip coins u)
  | last c <= a = giveChange (a - last c) c (replaceNth l ((u !! l) + 1) u)
  | otherwise = giveChange a (init c) u

haze

#1/bin/sh
# written by haze (feb 4, 2017)

FILE=$1
ILL_FOLDER=$HOME/.ill
KEY_FILE=$ILL_FOLDER/upload.key
if [ ! -f $KEY_FILE ]; then
  echo "ill.fi upload key not found. creating file (~/.ill/upload.key), please pbpaste key into file."
  if [ ! -d $ILL_FOLDER ]; then
    mkdir $ILL_FOLDER

haze

package pw.haze.lyribot

import com.github.salomonbrys.kotson.fromJson
import com.google.gson.Gson
import com.google.gson.annotations.SerializedName
import org.apache.http.client.methods.HttpGet
import org.apache.http.client.methods.HttpUriRequest
import org.apache.http.impl.client.HttpClientBuilder
import org.jsoup.Jsoup
import java.io.BufferedReader

haze

fun capture(base: String, left: String, right: String = left): String = base.substringAfterLast(left).substringBeforeLast(right)
fun unspacify(base: String): String = base.filter { c -> Character.isLetterOrDigit(c) }

class AZLyricsQuery() {
    data class Artist(val representation: String, val slug: String)
    data class Song(val slug: String, val artist: Artist, val title: String)
    data class Album(val artist: Artist, var title: String, var songs: Array<Song>)
    data class LyricsEntry(val song: Song, var lyrics: Array<String>)

    fun getAlbumsFor(artist: Artist): Array<Album> {