ayato-p

 (define 1000-digit 7316717653133062491922511967442657474235534919493496983520312774506326239578318016984801869478851843858615607891129494954595017379583319528532088055111254069874715852386305071569329096329522744304355766896648950445244523161731856403098711121722383113622298934233803081353362766142828064444866452387493035890729629049156044077239071381051585930796086670172427121883998797908792274921901699720888093776657273330010533678812202354218097512545405947522435258490771167055601360483958644670632441572215539753697817977846174064955149290862569321978468622482839722413756570560574902614079729686524145351004748216637048440319989000889524345065854122758866688116427171479924442928230863465674813919123162824586178664583591245665294765456828489128831426076900422421902267105562632111110937054421750694165896040807198403850962455444362981230987879927244284909188845801561660979191338754992005240636899125607176060588611646710940507754100225698315520005593572972571636269561882670428252483600823257530420752963450)
 

ayato-p

(define (square x)
  (* x x))

(define (func a b c)
  (cond
   ((>= a 1000) -1)
   ((>= b 1000) (func (+ a 1) 1 1))
   ((>= c 1000) (func a (+ b 1) 1))
   ((and (= (+ a b c) 1000)

ayato-p

(define (inc x)
  (+ x 1))

(define (prime? x)
  (define (prime-iter a)
    (cond
     ((> a (sqrt x)) #t)
     ((= (modulo x a) 0) #f)
     (else

ayato-p

public class Constants{

	public static final Constants HOGE_CD = new Constants( "1" );
    
	public static final Constants PIYO_CD = new Constants( "2" );
    
	//つらつらと色々な定数が定義されてます…
    
	private String value;

ayato-p

(define (str-count str)
  (let loop ((ls (string->list str))
	     (count 0))
    (let ((c (if (pair? ls)
		 (car ls)
		 ls))
	  (inc (lambda (x) (+ x 1))))
      (cond
       ((null? ls) count)
       ((char-whitespace? c) (loop (cdr ls) count))

ayato-p

(define (comp-tup tup)
  (comp-tup-iter tup 0))

(define (comp-tup-iter tup comp)
  (define (pow a b)
    (if (zero? b)
	1
	(* a (pow a (- b 1)))))
  (cond
   ((null? tup) comp)

ayato-p

(define (str-parse str)
  (let loop ((ls (string->list str))
	     (tmp-acc '())
	     (acc '()))
    (cond
     ((null? str) (reverse acc))
     (let ((c (car ls))
	   (c2i (lambda (c)
		  (- (char->integer c) 48))))
       ((or (char-whitespace? c) (null? (cdr ls)))

ayato-p

(define (exp-of-ten x)
  (expt 10 x))

(define (foo x context)
  (print (context x)))

(define (bar list context)
  (for-each
   (lambda (listp) (foo listp context))

ayato-p

(define (expt-of-ten x)
  (expt 10 x))

(define (f c x)
  (c x))

(f expt-of-ten 2)

ayato-p

; 対応する括弧を表示する
(show-paren-mode t)

; デフォルトパスを~/にする
(cd "~/")

;起動するときに起動画面を表示しない
(setq inhibit-startup-message t) 

; *.~ とかのバックアップファイルを作らない