cympfh

{-# LANGUAGE FlexibleInstances #-}

class PType t where
  hoge :: [Int] -> t

instance PType Int where
  hoge = sum

instance PType r => PType (Int -> r) where
  hoge xs = (\x -> hoge $ x:xs)

cympfh

ブロックされてるからふぁぼれない

• 枚方さんはマジで二度と関わってこないでくれー(2013年8月13日 - 21:33)
• 特になにが原因ってワケじゃないけどぽてまつに嫌がらせしたのは怒った(2013年8月13日 - 21:41)
• まぁあんまり言いたくないかもゴメン🙇(2013年8月13日 - 21:44)

cympfh

{-# LANGUAGE FlexibleInstances #-}

class PType r where
  hoge :: [String] -> r

instance PType (IO ()) where
  hoge = putStr . concat . reverse

instance PType String where
  hoge = concat . reverse

cympfh

{-# LANGUAGE FlexibleInstances #-}

-- iota of SRFI-1

iota1 n = [0 .. n-1]
iota2 n m = [m .. m+n-1]
iota3 n m s = [m, m+s .. m+s*(n-1)]

class PType t where
  iota :: t

cympfh

var exec = require('child_process').exec
  , fs   = require('fs')
var url = 'http://データベース/';

// 今日の夕食費
var kasi = 300
  , time = 20
  , www  = kasi-time; // com
// 時は金なり

cympfh

http.createServer(app).listen(app.get('port'), function(){  
  console.log('Express server listening on port ' + app.get('port'));  
});

cympfh

var oauth = new (require('oauth').OAuth)(
     'https://api.twitter.com/oauth/request_token',
     'https://api.twitter.com/oauth/access_token',
     'qnNRwjeo8zFjhIDfgG1F6Q',                     // CONSUMER_KEY (replace)
     'JtKRv1e9QIEG6mKvWl0g4ygGVGzWclgfd7GaSBEGtg', // CONSUMER_SECRET (replace)
     '1.0',
     'http://127.0.0.1:3000/signin/twitter', // callback URL
     'HMAC-SHA1'
 );

cympfh

 中卒梓 ‏@himono_ 29 Oct

「みんな、楽して生きて楽して死ねよ！」
Expand

    Reply
    Retweet Retweeted
    Delete
    Favorite Favorited

cympfh

#!/usr/bin/env coffee
# vim: set ft=coffee:

cheerio = require 'cheerio'
http    = require 'http'
url     = process.argv[2]
prefix  = process.argv[3] or './'

unless url
  console.warn '''usage: ehentai url [prefix]

cympfh

import Data.List

data Ayame = SV | C deriving (Show, Eq)

datum :: [((Int, Int), Ayame)]
datum = [ ((5,4), SV) , ((2,3), C) , ((9,2), SV) , ((31, 39), SV) , ((20, 20), C) ]

main = do
  let rule = findRule datum
      (left, right) = partition rule datum