liquidz

(use file.util)

(define (keta-awase num keta)
  (let* ((tmp (number->string num))
         (len (string-length tmp))
         )
    (if (< len keta)
      (string-append (make-string (- keta len) #\0) tmp)
      tmp
      )

liquidz

(use simply)
(uses file.util srfi-1)

(define *get-class-name* '__get-class-name)
(define *set-value* '__set-value)
(define *set-function* '__set-function)
(define *ref-function* '__)
(define *receive-number* '_num)
(define *receive-symbol* '_sym)
(define *receive-string* '_str)

liquidz

(use simply)
(uses gauche.interactive srfi-1)

(define *version* "0.01")

(define *default-functions*
  (list
    '+ (lambda x (apply + x))
    '- (lambda x (apply - x))
    '* (lambda x (apply * x))

liquidz

b=proc{|n,w|"#{n<1?'no more':n} bottle#{'s'if n!=1} of beer#{' on the wall'if w}"}
99.downto(0){|i|puts"#{b[i,0].capitalize}, #{b[i,p]}.\n#{i>0?'Take one down and pass it around, '+b[i-1,0]:'Go to the store and buy some more, '+b[99,0]}.\n\n"}

liquidz

// ==UserScript==
// @name 			nicotter
// @version 		0.01
// @namespace 		http://www.nicotto.jp
// @description 	post NicottoTown mutter to Twitter
// @author 			uochan (or liquidz@GitHub)
// @include 		http://www.nicotto.jp/user/mypage*
// ==/UserScript==

(function(){

liquidz

// ==UserScript==
// @name           nicomessage
// @namespace      http://www.nifty.com
// @include        http://www.nicotto.jp/user/mypage
// ==/UserScript==

(function(){
	// =$
	// ----------------------------------------------------
	var $ = function(id){

liquidz

(use simply)

(define (klass klass-name . init)
  (define (k2s k)
    (string->symbol (keyword->string k))
    )

  (let-keywords init ((initialize '())
                      (prototype (make-hash-table*))
                      )

liquidz

#!/usr/bin/gosh

(use srfi-1)
(use srfi-13)
(use simply)
(use simply.sxml)
(use simply.notify)

;---------YOU CAN EDIT----------
(define *twitter-user* "hogehoge")

liquidz

require 'open-uri'
require 'kconv'
require 'rexml/document'


def make_url(aws_key, options)
	res = "http://webservices.amazon.co.jp"
	res += "/onca/xml?Service=AWSECommerceService"
	res += "&AWSAccessKeyId=#{aws_key}"
	res += "&SearchIndex=Books"

liquidz

# rcss.rb

class Array
	def map
		self.each_index do |i|
			self[i] = yield(self[i])
		end
	end
end