Skip to content

Instantly share code, notes, and snippets.

@nebuta
nebuta / d3-geo.html
Created January 20, 2014 06:16
D3.js TopoJSON drawing example (map of Japan)
<!DOCTYPE html>
<!--
Fetch file:
http://www.gsi.go.jp/kankyochiri/gm_jpn.html#gm_jpn_use
Shape data
To view data: Use QGIS software. Install matplotlib, FreeType library, etc in advance.
(Tutorial: http://www.osgeo.jp/wp-content/uploads/2010/11/qgis_hands_on_foss4g2010.pdf)
@nebuta
nebuta / reverse.purs
Last active January 9, 2018 16:53
PureScript string reverse test
-- Type PureScript code here and click 'Compile' ...
--
-- Or select an example from the list at the top right of the page
module Main where
foreign import reverse "function reverse(s) { return function() { return s.split('').reverse().join(''); }; }" :: String -> String
a :: String
a = reverse "Hello"
@nebuta
nebuta / copipe.cpp
Last active January 3, 2016 16:09
Is (´・_・`((´・_・`)´・_・`)) a copy-and-paste of (´・_・`)?
#include <vector>
#include <iostream>
using namespace std;
bool failed = false;
int pos = 0;
string s;
string seq = "ABCDCba";
@nebuta
nebuta / hlearn-advent-2013.md
Created December 16, 2013 02:24
Haskellの統計・機械学習ライブラリHLearn

HLearnについて

これはHaskell Advent Calendar 2013の16日目の記事です。突っ込み・コメントなど歓迎します。

HLearnは、代数的構造を利用した統計・機械学習ライブラリということで、型の表現力が豊かであるHaskellの面目躍如の分野と言えそうだ。代数的構造に着目することで、同じ代数的構造を持つデータはその詳細によらず共通の抽象化を使えるというメリットがある。

まだ実験レベルのライブラリでAPIが頻繁に変わり、機能も多くないが、コンセプトが面白そうだったのでどういうふうに使えるか見てみた。

特徴

@nebuta
nebuta / tree-test.hs
Last active December 29, 2015 07:29
Tree breadcrumb interconversion test
{-# LANGUAGE FlexibleInstances #-}
import Data.Tree
import Test.QuickCheck
import Control.Applicative
import Data.List
import Data.Function
import Control.Monad
import Data.Maybe
@nebuta
nebuta / category.hs
Created September 19, 2013 07:56
Example of Category instance?
{-# LANGUAGE OverloadedStrings, GADTs, NoImplicitPrelude #-}
import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.IO as T
import Control.Monad.Writer
import Prelude hiding ((.),id)
import Control.Category
@nebuta
nebuta / js-graph.hs
Last active July 9, 2020 17:06
Haskell to D3.js binding simple prototype
{-# LANGUAGE OverloadedStrings, GADTs, NoImplicitPrelude, ExistentialQuantification, FlexibleInstances #-}
module JSGraph where
import Data.List
import Data.Text (Text)
import qualified Data.Text as T
import qualified Data.Text.IO as T
import Prelude hiding ((.),id)
@nebuta
nebuta / shiritori.hs
Created August 28, 2013 03:35
Naive implementation of shiritori
-- shiritori
import Control.Applicative ((<$>))
import Data.List (maximumBy)
import Data.Function (on)
import qualified Data.Map as M
import Debug.Trace
type Term = (Char,Char,String)
@nebuta
nebuta / hackage-timeline.hs
Last active December 21, 2015 16:18
Hackage repository info collection using Cabal package.
{-# LANGUAGE OverloadedStrings #-}
import Control.Applicative
import Control.Monad
import Data.Maybe
import Data.List
import System.Directory
import Distribution.PackageDescription.Parse
import Distribution.PackageDescription
import Distribution.Verbosity as Verbosity
@nebuta
nebuta / midi-test.html
Created August 22, 2013 07:00
MIDI.js demo application
<!DOCTYPE html>
<html lang='en'>
<head>
<meta charset="utf-8" />
<!-- midi.js package -->
<script src="./js/MIDI/AudioDetect.js" type="text/javascript"></script>
<script src="./js/MIDI/LoadPlugin.js" type="text/javascript"></script>
<script src="./js/MIDI/Plugin.js" type="text/javascript"></script>
<script src="./js/MIDI/Player.js" type="text/javascript"></script>
<script src="./js/Window/DOMLoader.XMLHttp.js" type="text/javascript"></script>