Skip to content

Instantly share code, notes, and snippets.

🐁
Clack clack click clack

Gergely Nagy algernon

🐁
Clack clack click clack
View GitHub Profile
View logic-of-sleep.hy
(import [adderall.dsl [*]]
[human])
(require adderall.dsl)
(defn awake-too-longᵒ [last-sleep-time]
(project [last-sleep-time]
(if (> (- (time) last-sleep-time) 14)
#ss
#uu)))
View keybase.md

Keybase proof

I hereby claim:

  • I am algernon on github.
  • I am algernon (https://keybase.io/algernon) on keybase.
  • I have a public key whose fingerprint is 10E6 5DC0 45EA BEFC C519 3A26 AC1E 90BA C433 F68F

To claim this, I am signing this object:

@algernon
algernon / trim-at-boundary.clj
Created Aug 7, 2011
Trim strings at word boundary, with a maximum length
View trim-at-boundary.clj
(ns algernon.util
(:require [clojure.contrib.str-util2 :as s]))
(defn trim-at-boundary [string max-len]
(if (< (.length string) max-len)
string
(str (s/take
(reduce #(if (< (+ (.length %1) (.length %2) 1) (- max-len 3))
(str %1 " " %2) %1)
(s/split string #"\s"))
@algernon
algernon / utf8wtf.rb
Created Nov 17, 2011
Fun stuff with UTF-8
View utf8wtf.rb
#! ruby -KUTF-8
hello world = "Goodbye world!"
  = "For real?!?"
 1 = 2
puts 1 + 1
puts hello world
puts  
@algernon
algernon / journal2json.py
Created Nov 25, 2011
The Journal => JSON exporter, via systemd-journalctl
View journal2json.py
#! /usr/bin/python
## Usage: systemd-journalctl | journal2json.py
import json
import sys
class JournalCtlParser:
fp = None
def __init__(self, fp):
@algernon
algernon / uniq-c.pl
Created Aug 24, 2012
Obfuscated uniq -c in Perl
View uniq-c.pl
#!perl -n
BEGIN{$;=open(STDOUT,"|sort -nr")&&0;}$"=$_ if !$;++;next if $_ eq $";print $;-1 ."|".$";($;,$")=(1,$_);END{print "$;|".$";}
@algernon
algernon / amqp-consumer.py
Created Oct 9, 2012
AMQP consumer in python, for testing
View amqp-consumer.py
#! /usr/bin/python
import sys
import pika
# Import all adapters for easier experimentation
from pika.adapters import *
pika.log.setup(pika.log.INFO, color=True)
@algernon
algernon / dance.bas
Created Nov 25, 2012
My very first program, ever
View dance.bas
10 PRINT CHR$(27);"N"
20 PRINT "\o/"
30 PRINT " | "
40 PRINT "/ \"
50 FOR I=1 TO 1000: NEXT
60 PRINT CHR$(27);"N"
70 PRINT " o "
80 PRINT "/|\"
90 PRINT "/ \"
100 FOR I=1 TO 1000: NEXT
@algernon
algernon / python-lisp-hybrid
Created Feb 4, 2013
A python "dialect" with significant parens. The point is, any whitespace at the beginning of line that is used for indentation must be replaced by opening parens, and to end a block, you must close all relevant parens.
View python-lisp-hybrid
def foobar(blah):
((for i in range(1, 10):
((((print "blah: %s" % blah))))))
@algernon
algernon / fizzbuzz-seq.clj
Created Feb 10, 2013
A fizzbuzz implementation that produces a lazy list of results.
View fizzbuzz-seq.clj
(defn fizzbuzz-seq
[]
(letfn [(nil-prefix [n s]
(concat (take n (cycle [nil])) [s]))]
(map #(let [s (or %4 %2 %3 (inc %1))] s)
(range)
(cycle (nil-prefix 2 "Fizz"))
(cycle (nil-prefix 4 "Buzz"))
(cycle (nil-prefix 14 "FizzBuzz")))))
You can’t perform that action at this time.