Goheeca

// ==UserScript==
// @name       Toggler based on nicknames
// @namespace  GHC
// @version    0.2
// @description  to get rid of bullshits and tldrs
// @match      http://danyk.cz/kniha/kniha.php*
// @require    http://code.jquery.com/jquery-2.1.0.min.js
// @require    http://cdnjs.cloudflare.com/ajax/libs/jquery-cookie/1.4.0/jquery.cookie.js
// @copyright  2014+, Goheeca
// ==/UserScript==

Goheeca

@echo off
setlocal enabledelayedexpansion

set PATH=
if not "%~1" == "" (
  for /f "Tokens=* Delims=" %%x in (%1) do (
    if [!PATH!] == [] (
      set PATH=!PATH!%%x
    ) else (
      set PATH=!PATH!;%%x

Goheeca

from fractions import Fraction
import random
from itertools import zip_longest


class Field(object):
    def __init__(self):
        self.characteristic = None

    def __call__(self, value):

Goheeca

(require :asdf)
(require :bordeaux-threads)

(defun color-formatter (color)
  (format nil "~a[~am~~?~a[m" #\Esc color #\Esc)) ; The formatter function wants a simple-string.

(defun message (color i thread)
  (let ((color-format (color-formatter color))
	(thread-name (bt:thread-name thread)))
    (format t "~&Hello for the ~? time from the ~? thread.~%"

Goheeca

#!/usr/bin/sbcl --script

#|

Usage
=====
$ ./braille-pixels.lisp [path]

Main
====

Goheeca

#!/usr/bin/sbcl --script
(require :sb-posix)
(require :sb-bsd-sockets)

;;; Globals
;; IPC
(defvar *pid* nil)
(defvar *socket-path* "/tmp/socket")
(defvar *socket* nil)
;; MT

Goheeca

#||| Python or JS that is the question. |#

#|| Let's define a JS function, provided we're in JS. |#

#+moody-js"
function fact(n) {
  if (n == 0) return 1
  else return n * fact(n - 1)
}
"

Goheeca

#!/usr/bin/sbcl --script
(load "~/.sbclrc")
(ql:quickload '("bordeaux-threads") :silent t)

(defun color-formatter (color)
  (format nil "~a[~am~~?~a[m" #\Esc color #\Esc))

(defvar *output-lock* (bt:make-lock "OUTPUT LOCK"))

(defmacro safe-format (stream fmt &rest args)

Goheeca

#!/usr/bin/env stack
-- stack --resolver lts-18.5 script --package template-haskell --package refined
{-# LANGUAGE TemplateHaskell, TypeApplications #-}

import Refined
import Data.Either

import RefinedTestDefinitions

refinedTypeAppliedTest :: RefinedTest Int

Goheeca

{-# LANGUAGE TemplateHaskell #-}
module Main where

import Reificator

main :: IO ()
main = pure $$(guardTH (operationTest 11 7 4) [|| () ||])