View filter.rb
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
class Filter | |
class << self | |
def filters | |
@filters ||= {} | |
end | |
def add(name, &code) | |
filters[name] = code | |
end | |
end |
View buffer-bar-scroll.l
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; マウス右ボタン押しながらホイール操作でバッファ切り替え | |
(eval-when (:compile-toplevel :load-toplevel :execute) | |
(require "foreign")) | |
(defpackage :buffer-bar-scroll | |
(:use :lisp :editor)) | |
(in-package :buffer-bar-scroll) |
View 256w.d
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(new F(delegate V(V f3) { | |
return (new F(delegate V(V f4) { | |
return (new F(delegate V(V f5) { | |
return (new F(delegate V(V f6) { | |
return (new F(delegate V(V f7) { | |
return f7(f7); | |
}))(f6(w)); | |
}))(f5(writer)); | |
}))(f4(f4)); | |
}))(f3(f3)); |
View hello.d
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(new F(delegate V(V f5) { | |
return (new F(delegate V(V f9) { | |
return (new F(delegate V(V f10) { | |
return (new F(delegate V(V f11) { | |
return (new F(delegate V(V f15) { | |
return (new F(delegate V(V f17) { | |
return (new F(delegate V(V f18) { | |
return (new F(delegate V(V f19) { | |
return (new F(delegate V(V f20) { | |
return (new F(delegate V(V f21) { |
View bonjovi.l
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;;; https://twitter.com/yagiyyyy/status/473405016540053504/photo/1 | |
(defun bonjovi () | |
(loop | |
:with buf := #(t t t) | |
:for n :from 0 | |
:for w := (format nil "~A~A" #0=(nth (random 4) '("ジョ" "ン" "ボ" "ヴィ")) #0#) | |
:until (equalp buf #("ジョン" "ボン" "ジョヴィ")) | |
:do (format t "~[~:;・~]~A" n w) | |
(shiftf (aref buf 0) (aref buf 1) (aref buf 2) w) |
View Swift
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; keyword file for Swift | |
;; Keywords used in declarations: | |
;*0 | |
class | |
deinit | |
enum | |
extension | |
func | |
import |
View qiita-feed.ps1
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Param( | |
[parameter(Mandatory=$true)] | |
[String]$tag | |
) | |
$OutputEncoding = [System.Text.Encoding]::UTF8 | |
irm "http://qiita.com/tags/$tag/feed" | %{$_.title + "`0" + $_.url} | peco --null | %{start $_} |
View tatsuzine.ps1
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
param([switch] $All) | |
$OutputEncoding = [System.Text.Encoding]::UTF8 | |
$c = if ($All) { "all" } else { "new" } | |
irm "http://tatsu-zine.com/catalogs/$c.opds" | | |
%{$_.title + "`0" + ($_.link | where {$_.rel -Match "/buy"}).href} | | |
peco --null | |
View test.lisp
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
;; ref. http://msdn.microsoft.com/en-us/library/windows/desktop/bb759975(v=vs.85).aspx | |
(defun format-byte-size (n) | |
(labels ((rec (n units) | |
(cond ((null units)) | |
((< n 10) | |
(format nil "~,2f~a" n (car units))) | |
((< n 100) | |
(format nil "~2,1f~a" n (car units))) | |
((< n 1000) | |
(format nil "~d~a" (floor n) (car units))) |
View vote.clj
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(prn(if(re-seq #"^(OO)*X?(OO)*$"(apply str(repeatedly 30 read-line)))'yes 'no)) |
OlderNewer