bacher09

#!/usr/bin/env python3
import getpass
import crypt
import argparse
import sys


METHODS_DICT = dict((meth.name.lower(), meth) for meth in  crypt.methods)

bacher09

#!/bin/sh
wget --base=http://dl.xonotic.co/ -i maps.txt

bacher09

module Main where

import Control.Monad (forM_, mapM_)
import Control.Applicative ((<$>))
import Data.Bifunctor (bimap, first, second)
import Data.Array.MArray (newArray, writeArray)
import Data.Array.ST (runSTArray)
import Data.Array (Array, bounds, (!))
import Text.Read (readMaybe)

bacher09

CC=gcc
LIBS=-lpthread -lfcgi -lGeoIP
CFLAGS=-Wall --std=c11 -O2 -D_POSIX_C_SOURCE=200809L
DEPS=geoip_api.h http_utils.h
TARGET=ip_api

.PHONY: all

all: $(TARGET)

bacher09

myip() {
    curl -4 "http://icanhazip.com/"
}

myip6() {
    curl -6 "http://icanhazip.com/"
}

reverse_ipv4() {
    local ip="$1"

bacher09

module Main where
import Data.Array.IArray
import Data.Tuple (swap)
import System.Random
import Data.List (foldl')
 
 
data CoinType = Gold
              | Silver
    deriving(Show, Read, Eq, Ord, Bounded, Enum)

bacher09

#!/bin/bash

XONOTIC_LINUX=xonotic-glx
XONOTIC_OSX="open $HOME/Downloads/Xonotic/Xonotic.app -W --args"
XONOTIC_DATA_LINUX=$HOME/.xonotic/data
XONOTIC_DATA_OSX="$HOME/Library/Application Support/xonotic/data"


realpath() {
    [[ $1 = /* ]] && echo "$1" || echo "$PWD/${1#./}"

bacher09

function string_ends(text, ends)
    return ends == "" or string.sub(text, -string.len(ends)) == ends
end

function vlc_format(filename)
    -- https://wiki.videolan.org/VLC_Features_Formats#Format.2FContainer.2FMuxers
    local formats = {
        "3gp", "asf", "wmv", "au", "avi", "mka", "mkv", "flv", "mov", "mp4", 
        "ogg", "ogm", "ts", "mpg", "mp3", "mp2", "msc", "msv", "nut", "ra",

bacher09

>>> a = "realylongstringwithmanychars"
>>> b = "realylongstringwithmanychars"
>>> a is b
True
>>> a = "a b c"
>>> b = "a b c"
>>> a is b
False

bacher09

module Utf8 where
import qualified Data.ByteString as B
import Control.Applicative
import Data.Word
import Data.Bits
import Data.Char
import Debug.Trace


utf8SeqInfo :: Word8 -> Maybe (Word8, Word8)