m2ym

(defpackage :brainfuck (:use :cl))

(in-package :brainfuck)

(defun string->brainfuck (source)
  (let* ((fragments
          (map 'list
               (lambda (c)
                 (case c
                   (#\> "(incptr 1)")

pepijndevos

(ns xmas)

(doseq [line (concat (take 9 (map #(apply str
                                          (take (+ (rem % 3)
                                                   (int (/ % 3)))
                                                (repeat "*")))
                                  (range 20)))
                     (take 2 (repeat "*")))]
  (println (format "%1$30s*%1$s" line)))

tily

順位	カタカナ	頻度	スコア
1	ニンジャスレイヤー	610	10632
2	ニンジャ	500	3657
3	イヤーッ	211	2537
4	グワーッ	155	2056
5	ギンイチ	166	1986
6	スリケン	123	1533
7	ネオサイタマ	73	1362

podhmo

default:
	echo "(+ 1 2) (+ 10 3)" | ruby tlisp.rb

deltam

digraph g{  graph[rankdir=LR;]; 
v0477 [label="0477\n(33)"]
v0225 [label="0225\n(05)"]
v4689 [label="4689\n(25)"]
v1224 [label="1224\n(03)"]
v2268 [label="2268\n(44)"]
v6678 [label="6678\n(12)"]
v6777 [label="6777\n(01)"]
v5589 [label="5589\n(34)"]
v2889 [label="2889\n(04)"]