nomnel nomnel

## zenra.rb
# coding: utf-8
require 'rubygems'
require 'sinatra'
require 'open-uri'
require 'rexml/document'

helpers do
  include Rack::Utils; alias_method :h, :escape_html
end

## pe-downloader.scm
#!/usr/local/bin/gosh

(add-load-path "." :relative)
(use gauche.parseopt)
(use file.util)
(use rfc.http)
(use sxml.sxpath)
(load "htmlprag.scm")

(define SERVER "projecteuler.net")

## Nqueen.scm
; (N-queen 7 '((2 3) (4 6))) => ((7 7) (6 2) (5 4) (3 1) (1 5) (2 3) (4 6))
(define (N-queen N ini-points)
  (define (delete-l lst target)
    (if (null? lst) target
	(delete-l (cdr lst) (delete (car lst) target))))
  (define (ok? x y his)
    (let loop ((his his))
      (cond ((null? his) #t)
	    ((= (abs (- x (caar his)))
		(abs (- y (cadar his))))

## recipe.html
<!DOCTYPE html>
<html lang="ja">
<head>
  <meta charset="UTF-8">
  <meta name="description" content="誰でもできる、美味しいカレーの作り方です。">
  <title>カレーのレシピ</title>
</head>
<body>
  <h1>カレーのレシピ</h1>

## style.css
html, body, div, span, applet, object, iframe,
h1, h2, h3, h4, h5, h6, p, blockquote, pre,
a, abbr, acronym, address, big, cite, code,
del, dfn, em, img, ins, kbd, q, s, samp,
small, strike, strong, sub, sup, tt, var,
b, u, i, center,
dl, dt, dd, ol, ul, li,
fieldset, form, label, legend,
table, caption, tbody, tfoot, thead, tr, th, td,
article, aside, canvas, details, embed,

## 1.rb
puts "1年は#{365 * 24}時間です"

puts "10年間は#{60 * 24 * 365 * 10}分です"

puts "生まれてから#{Time.new - Time.mktime(1986, 1, 1)}秒経っている"

puts "80年生きるとして、#{(80 * 365) / 7}枚ぐらいかな"

puts "10億3400万秒生きてるとしたら#{1034000000 / 60 / 60 / 24 / 365}歳"

## strcture.sass
#header
  .app_nav
    ul
      li
        a
          &.pressed
            color: $red
          &.disable
            opacity: .3

## action.coffee
try_go = (obj, func) ->
  moved = false
  console.log 'start'

  $(window).on 'unload', ->
    moved = true
    console.log 'unload'

  func()

## html2md.scm
(use file.util)

(let1 html-files (filter (^f (string=? "html" (cadr (string-split f "."))))
                         (directory-list (current-directory)))
  (call-with-output-file "script.sh"
    (^p (dolist (f html-files)
          (display (string-append "pandoc -f html -t markdown_github "
                                  f " -o "
                                  (string-append (car (string-split f ".")) ".md"))
                   p)

## application_helper.rb
module ApplicationHelper
  def title(page_title)
    content_for(:title) {page_title}
    page_title
  end

end
	# coding: utf-8
	require 'rubygems'
	require 'sinatra'
	require 'open-uri'
	require 'rexml/document'

	helpers do
	include Rack::Utils; alias_method :h, :escape_html
	end
	#!/usr/local/bin/gosh

	(add-load-path "." :relative)
	(use gauche.parseopt)
	(use file.util)
	(use rfc.http)
	(use sxml.sxpath)
	(load "htmlprag.scm")

	(define SERVER "projecteuler.net")
	; (N-queen 7 '((2 3) (4 6))) => ((7 7) (6 2) (5 4) (3 1) (1 5) (2 3) (4 6))
	(define (N-queen N ini-points)
	(define (delete-l lst target)
	(if (null? lst) target
	(delete-l (cdr lst) (delete (car lst) target))))
	(define (ok? x y his)
	(let loop ((his his))
	(cond ((null? his) #t)
	((= (abs (- x (caar his)))
	(abs (- y (cadar his))))
	<!DOCTYPE html>
	<html lang="ja">
	<head>
	<meta charset="UTF-8">
	<meta name="description" content="誰でもできる、美味しいカレーの作り方です。">
	<title>カレーのレシピ</title>
	</head>
	<body>
	<h1>カレーのレシピ</h1>
	html, body, div, span, applet, object, iframe,
	h1, h2, h3, h4, h5, h6, p, blockquote, pre,
	a, abbr, acronym, address, big, cite, code,
	del, dfn, em, img, ins, kbd, q, s, samp,
	small, strike, strong, sub, sup, tt, var,
	b, u, i, center,
	dl, dt, dd, ol, ul, li,
	fieldset, form, label, legend,
	table, caption, tbody, tfoot, thead, tr, th, td,
	article, aside, canvas, details, embed,
	puts "1年は#{365 * 24}時間です"

	puts "10年間は#{60 * 24 * 365 * 10}分です"

	puts "生まれてから#{Time.new - Time.mktime(1986, 1, 1)}秒経っている"

	puts "80年生きるとして、#{(80 * 365) / 7}枚ぐらいかな"

	puts "10億3400万秒生きてるとしたら#{1034000000 / 60 / 60 / 24 / 365}歳"
	#header
	.app_nav
	ul
	li
	a
	&.pressed
	color: $red
	&.disable
	opacity: .3
	try_go = (obj, func) ->
	moved = false
	console.log 'start'

	$(window).on 'unload', ->
	moved = true
	console.log 'unload'

	func()
	(use file.util)

	(let1 html-files (filter (^f (string=? "html" (cadr (string-split f "."))))
	(directory-list (current-directory)))
	(call-with-output-file "script.sh"
	(^p (dolist (f html-files)
	(display (string-append "pandoc -f html -t markdown_github "
	f " -o "
	(string-append (car (string-split f ".")) ".md"))
	p)
	module ApplicationHelper
	def title(page_title)
	content_for(:title) {page_title}
	page_title
	end

	end