masaedw

abstract (1.0.0)
actionmailer (3.0.7)
actionpack (3.0.7)
activemodel (3.0.7)
activerecord (3.0.7)
activeresource (3.0.7)
activesupport (3.0.7)
arel (2.1.0, 2.0.9)
builder (3.0.0, 2.1.2)
bundler (1.0.13)

masaedw

def bellman_filter msg
  if /べるまん/ =~ msg.toeuc
    "なぜ人はべるまんに通うのか"
  end
end

masaedw

require 'rubygems'
require 'oauth'
require 'json'

CONSUMER_KEY = 'XXXXXXXXXXXXX'
CONSUMER_SECRET = 'XXXXXXXXXXXXXXXXXXXXXXXXXXX'
ACCESS_TOKEN = 'XXXXX-XXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'
ACCESS_TOKEN_SECRET = 'XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX'

# 下準備

masaedw

module Main where
import Text.Pandoc
import Prelude hiding (getContents, putStrLn)
import System.IO.UTF8


markdownToHtml :: String -> String
markdownToHtml =
  (writeHtmlString defaultWriterOptions {writerReferenceLinks = True}) .
  readMarkdown defaultParserState

masaedw

{-# LANGUAGE QuasiQuotes, TypeFamilies, GeneralizedNewtypeDeriving, TemplateHaskell, OverloadedStrings, GADTs #-}
{-# LANGUAGE MultiParamTypeClasses #-}
{-# LANGUAGE NoMonomorphismRestriction #-}

module Yiki where
import Control.Applicative ((<$>), (<*>))
import Control.Monad.IO.Class
import Data.Text
import Data.Time
import Database.Persist

masaedw

{-# LANGUAGE OverloadedStrings #-}
import Control.Applicative
import Data.Attoparsec
import qualified Data.Attoparsec as A
import qualified Data.ByteString as B

data MDElement = Elem B.ByteString
               | Link B.ByteString
                 deriving (Show, Eq)

masaedw

my $t;

while (<>) {
  my ($key, $value) = split;
  push @{$t->{$key}}, $value;
}

foreach $key (keys %{$t}) {
  my $s = join ", ", @{$t->{$key}};
  print "$key $s\n";

masaedw

#if INTERACTIVE
#r "office.dll"
#r "Microsoft.Office.Interop.Excel.dll"
#endif

open System
open System.IO
open System.Runtime.InteropServices
open Microsoft.Office.Interop.Excel

masaedw

let main() =
    let (@@) = id

    [1;2;3;4;5]
    |> Seq.map @@ fun x -> x * x
    |> ignore

    ["a";"b";"c";"d"]
    |> Seq.map @@ fun x -> x + x
    |> Seq.iter @@ printf "%s"

masaedw

fizzbuzzList = [x | x <- map fizzbuzz [1..]]
  where fizzbuzz x | x `mod` 15 == 0 = "FizzBuzz"
                   | x `mod`  5 == 0 = "Buzz"
                   | x `mod`  3 == 0 = "Fizz"
                   | otherwise       = show x

main = do
  mapM_ putStrLn $ take 100 $ fizzbuzzList