Skip to content

Instantly share code, notes, and snippets.

View bertschneider's full-sized avatar

Norbert Schneider bertschneider

51 followers · 40 following
View GitHub Profile
@bertschneider
bertschneider / quine.kt
Created July 25, 2020 08:59
Kotlin Quine
fun main() { val q = """
fun main() { val q = '''%s'''
println(q.replace(Regex("'{3}"), "\"\"\"").format(q)) }"""
println(q.replace(Regex("'{3}"), "\"\"\"").format(q)) }
@bertschneider
bertschneider / keybase.md
Last active February 24, 2017 09:59
keybase.md

Keybase proof

I hereby claim:

  • I am bertschneider on github.
  • I am bertschneider (https://keybase.io/bertschneider) on keybase.
  • I have a public key ASCA8p_V1IRZTHKyeBe02yJZ78NzI2gqwZGWZYJbB0CBIQo

To claim this, I am signing this object:

@bertschneider
bertschneider / GoL-Kata-REPL.clj
Created August 7, 2010 16:31
user> (ns kata3.core)
nil
kata3.core> (def world {:width 8 :height 4
:grid [0 0 0 0 0 0 0 0
0 0 0 0 1 0 0 0
0 0 0 1 1 0 0 0
0 0 0 0 0 0 0 0]})
#'kata3.core/world
kata3.core> (evolve world)
{:width 8, :height 4, :grid (0 0 0 0 0 0 0 0
@bertschneider
bertschneider / ClojurePerm.clj
Created August 5, 2010 17:49
user> (defn perm [counter vals]
(if (<= counter 1)
(for [x vals]
[x])
(let [perms (perm (dec counter) vals)]
(for [v vals p perms]
(conj p v)))))
#'user/perm
user> (perm 2 [0 1])
([0 0] [1 0] [0 1] [1 1])