Skip to content

Instantly share code, notes, and snippets.

View takuya0301's full-sized avatar

Takuya Tsuchida takuya0301

3 followers · 0 following
View GitHub Profile
@takuya0301
takuya0301 / the-seasoned-schemer.rkt
Last active January 4, 2018 14:22
#lang racket/base
; Chapter 11
;(define member?
; (lambda (a lat)
; (cond
; ((null? lat) #f)
; (else (or (eq? a (car lat))
; (member? a (cdr lat)))))))
@takuya0301
takuya0301 / the-little-schemer.rkt
Last active June 2, 2016 07:16
The Little Schemer
#lang racket/base
; Chapter 1
(define atom?
(lambda (x)
(and (not (pair? x)) (not (null? x)))))
; Chapter 2
@takuya0301
takuya0301 / deathmarch.groovy
Created May 9, 2014 09:35
CodeIQ 第2回デスマコロシアム Groovy 解答（Ideone 非対応）
a='`@ぁァァぁ@`';26.times{print a=a.collect{++it}.join()}
@takuya0301
takuya0301 / deathmarch.groovy
Created May 9, 2014 09:32
CodeIQ 第2回デスマコロシアム Groovy 解答
a='`@\u3041\u30A1\u30A1\u3041@`';26.times{new PrintStream(System.out,!0,'utf8').print a=a.collect{++it}.join()}
@takuya0301
takuya0301 / gist-gadget.xml
Last active November 15, 2015 23:32
Google gadget for embedding Gist.
<?xml version="1.0" encoding="UTF-8"?>
<Module>
<ModulePrefs title="Gist">
<Require feature="dynamic-height"/>
</ModulePrefs>
<UserPref name="id" display_name="Gist ID" required="true" default_value="9088612"/>
<UserPref name="font_size" display_name="Font size (px)" required="true" default_value="12"/>
<UserPref name="line_height" display_name="Line height (px)" required="true" default_value="16"/>
<Content type="html">
<![CDATA[
@takuya0301
takuya0301 / hello.xml
Last active August 29, 2015 13:56
Hello Google Gadget
<?xml version="1.0" encoding="UTF-8" ?>
<Module>
<ModulePrefs title="hello world example">
<Require feature="dynamic-height"/>
</ModulePrefs>
<Content type="html">
<![CDATA[
Hello, world! Updated!
<script type="text/javascript">
gadgets.util.registerOnLoadHandler(gadgets.window.adjustHeight);