mmisono

#!/usr/bin/python

# Usage : python latest.py -n 5 -0 ~/foo | xargs -0 -J% cp % /tmp

import os.path
import getopt
import glob
import sys

def main():

mmisono

#/usr/bin/python

import Skype4Py
import Growl
import os
import sqlite3
import shutil
import time

handle_names   = []

mmisono

#!/usr/bin/python

import Skype4Py

skype = Skype4Py.Skype()
skype.Attach()

for i in xrange(skype.RecentChats.Count):
    print "%-40s\t\t%s" % (skype.RecentChats[i].Name,
                        skype.RecentChats[i].FriendlyName)

mmisono

" A ref source for GNOME References
" Version: 0.0.1
" Author : mfumi  <[email protected]>
"        : thinca <[email protected]>
" License: Creative Commons Attribution 2.1 Japan License
"          <http://creativecommons.org/licenses/by/2.1/jp/deed.en>

let s:save_cpo = &cpo
set cpo&vim

mmisono

function timer(){
  local title icon min sec t
	min=0
	sec=0
	t=0
	title="Timer"
	icon=""

	while getopts m:s:t:i: OPT
	do

mmisono

GA1DArrayAlleleGenome
GA1DArrayGenome
GA1DBinaryStringGenome
GA2DArrayAlleleGenome
GA2DArrayGenome
GA2DBinaryStringGenome
GA3DArrayAlleleGenome
GA3DArrayGenome
GA3DBinaryStringGenome
GAAllele

mmisono

function latest(){
	local dir num
	num=1
	while getopts hn: OPT
	do
		case $OPT in
			"n" ) num="$OPTARG"
						shift 2 ;;
			 *  ) echo "Usage: $0 [-n number] [dir]" 1>&2
				 		return;;

mmisono

function! s:aojproblem(id,lang)
	let base_url = "http://rose.u-aizu.ac.jp/onlinejudge/ProblemSet/description.jsp?id="
	let url = '"' . base_url.printf("%04d",a:id) . "&lang=" . a:lang . '"'

	let winnum = bufwinnr(bufnr('AOJ:Problem'))
	if winnum != -1
		if winnum != bufwinnr('%')
			exe "normal \<c-w>".winnum."w"
		endif
		setl modifiable

mmisono

max = 100
main = do fizzbuzz 1

fizzbuzz :: Int -> IO()
fizzbuzz n | n == max  = putStrLn $ _fizzbuzz (n)
           | otherwise = do putStrLn $ _fizzbuzz n
                            fizzbuzz (n+1)
  where 
    _fizzbuzz :: Int -> String
    _fizzbuzz x | x `mod` 15 == 0 = "FizzBuzz"

mmisono

main = do putStr $ unlines $ map fizzbuzz [1..100]

fizzbuzz :: Int -> String
fizzbuzz x | x `mod` 15 == 0 = "FizzBuzz"
           | x `mod` 5  == 0 = "Buzz"
           | x `mod` 3  == 0 = "Fizz"
           | otherwise = show x