urus

# encoding: utf-8

require 'rubygems'
require 'amazon/ecs'

Amazon::Ecs.options = {
  :associate_tag => 'myTag',
	:AWS_secret_key => 'mySecretKey',
	:AWS_access_key_id => 'myAccessKeyId',
	:locale => 'jp'

urus

<?php
class Hoge
{
    private static function convert_array_to_url_param(array $values, $name)
    {
        return  implode('&'.$name.'[]=', array_map('urlencode', $values));
    }
}

urus

public class KiwiJuiceEasy {

    public int[] thePouring(int[] capacities, int[] bottles, int[] fromId, int[] toId) {
		
		for (int i = 0;i < fromId.length;i++){
			int mix = bottles[fromId[i]] + bottles[toId[i]]; 
			if (capacities[toId[i]] < mix){
				bottles[toId[i]] = capacities[toId[i]];
				bottles[fromId[i]] = mix - capacities[toId[i]];
			}else {

urus

public class BinaryCode {

    public String[] decode(String message) {
		
		int length =  message.length();
		String result[] = new String[2];
		int[] p = new int[length];
	
		p[0] = 0;
		result[0] = solve(p,message,length);

urus

require 'rubygems'
require 'nokogiri'
require 'open-uri'

require 'railsDirectory\config\boot'
require 'railsDirectory\config\environment'

def scrapeHotEntry(date)
	puts "scraping...  >> " + date.to_s
	hotEntryUrl = "http://b.hatena.ne.jp/hotentry/" + date.to_s.delete("-")

urus

require 'rubygems'
require 'nokogiri'
require 'open-uri'

hotEntryUrl = "http://b.hatena.ne.jp/hotentry/20100101"
hotEntryHtml = Nokogiri::HTML(open(hotEntryUrl), nil, 'UTF-8')

hotEntryHtml.search('//li[@class="track-click-entry"]/div[@class="entry-body"]').each do |entry|
  puts entry.search('h3/a/@title')
  puts entry.search('h3/a/@href')

urus

answer4 = maximum [z | x <- [100..999], 
		y <- [x .. 999], 
		let z = x * y, 
		let stringZ = show z, 
		stringZ == reverse stringZ]

answer5 = foldl1 lcm [1..20]

answer6 = (sum [1..100]) ^2 - sum(map (^2) [1..100]) 

urus

answer1 = sum [x | x<- [1..999] , (mod x 5 == 0|| mod x 3 == 0)]


-- Haskellでのフィボナッチ数。zipWithが遅延評価なので遅いらしい
-- (参考)あどけない話 Haskellの神話 http://d.hatena.ne.jp/kazu-yamamoto/20100624/1277348961
answer2 = sum [x | x <- takeWhile (<4000000) fibs , even x]
	where fibs = 1 : 1 : zipWith (+) fibs (tail fibs) 


-- 素因数分解

urus

import System.Random
import Control.Monad

main = do
    gen <- getStdGen
    nextGame gen 5

-- ゲーム本体。再帰呼び出しで次のゲームへ
nextGame :: StdGen -> Int -> IO()
nextGame gen n = do