Skip to content

Instantly share code, notes, and snippets.

🐁
Clack clack click clack

Gergely Nagy algernon

🐁
Clack clack click clack
Block or report user

Report or block algernon

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
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.