hyone

use v5.14;
use warnings;

sub hoge {
    say do {
        given (wantarray) {
            when (undef) { "void" }
            when (0)     { "scalar" }
            when (1)     { "list" }
        }

hyone

;; (defproject async-test1 "1.0.0-SNAPSHOT"
;;   :description "FIXME: write description"
;;   :dependencies [[org.clojure/clojure "1.3.0"]
;;                  [http.async.client "0.4.0"]]
;;   :dev-dependencies [[swank-clojure "1.3.4"]])

(ns async-test1.core
  (:require [http.async.client :as client]
            [http.async.client.request :as request]))

hyone

;; (defproject async-test2 "1.0.0-SNAPSHOT"
;;   :description "FIXME: write description"
;;   :dependencies [[org.clojure/clojure "1.3.0"]
;;                  [aleph "0.2.1-alpha1"]])


(ns async-test2.core
  (:use lamina.core
        aleph.http))

hyone

;; Inverse Fizzbuzz - just another scala quant - http://www.jasq.org/2/post/2012/05/inverse-fizzbuzz.html

;; UPDATED 2012/05/20: This code is wrong, because this only finds the index of the first sub sequence of fizzbuzz sequence.

(ns inverse-fizzbuzz.core)

(defn fizzbuzz []
  (map #(cond (zero? (mod % 15)) "fizzbuzz"
              (zero? (mod % 3)) "fizz"
              (zero? (mod % 5)) "buzz"

hyone

;; Inverse Fizzbuzz - just another scala quant - http://www.jasq.org/2/post/2012/05/inverse-fizzbuzz.html

(ns inverse-fizzbuzz.core
  (:use [clojure.test :only (deftest are)]))


(defn unzip [coll]
  (if-not (empty? coll)
    (apply map list coll)))

hyone

object InverseFizzBuzz extends App {

  implicit def makeSeqSafer[A](xs: Seq[A]) = new {
    def safeMinBy[B](f: A => B)(implicit cmp: Ordering[B]) =
      if (xs.nonEmpty) Some(xs.minBy(f)) else None
  }
  
  def solve(words: Seq[String]): Option[(Int, Int)] = {
    List(3,5,6,9,10,12,15).flatMap { x =>
      val (subseq, pos) = Stream.from(x).collect {

hyone

module Main where

import Control.Applicative
import Control.Monad
import Data.Maybe (fromJust, isJust)
import Network.Curl (curlGetString, URLString)
import qualified Text.XML.Light as XML


url = "http://search.twitter.com/search.atom?q=haskell&rpp=10"

hyone

import Control.Monad.State

splitEvery :: Int -> [a] -> [[a]]
splitEvery n = takeWhile (not . null) . evalState (sequence $ repeat (state (splitAt n)))
                  
{-
   ghci> splitEvery 5 [1..27]
   [[1,2,3,4,5],[6,7,8,9,10],[11,12,13,14,15],[16,17,18,19,20],[21,22,23,24,25],[26,27]]
   ghci> splitEvery 5 []
   []

hyone

;; (defproject async-test2 "0.1.0-SNAPSHOT"
;;   :description "FIXME: write description"
;;   :url "http://example.com/FIXME"
;;   :license {:name "Eclipse Public License"
;;             :url "http://www.eclipse.org/legal/epl-v10.html"}
;;   :dependencies [[org.clojure/clojure "1.4.0"]
;;                  [http.async.client "0.4.5"]])


(ns async-test2.core

hyone

splites :: Int -> [(Int, Int)]
splites n = [ (x, n - x) | x <- [1..n-1] ]

count :: Int -> Int
count 1 = 1
count n = sum $ do
  (i, j) <- splites n
  return $ count i * count j