遅延リストで素数

プログラミング

Prime numbers - HaskellWiki から移植。 -- from www.haskell.org/haskellwiki/Prime_numbers minus = (X, Y) -> return X if Y\empty! x, xs = X\head!, X\tail! y, ys = Y\head!, Y\tail! if x < y Sequence\ConsDelay (-> x), Delay -> minus xs, Y else…

2013-02-04

Lua/MoonScriptで部分関数

プログラミング

昨日の続き。 util = require 'util' import Function, Switch, Case, Delay, List, Array, Sequence from util _ = util.it require 'std' print '# Function combination' print "(_ + 5 .. _ * 2)(1) ==> #{(_ + 5 .. _ * 2)(1)}" print '# Partial funct…

2013-02-03

Lua/MoonScriptで遅延リスト

プログラミング

MoonScriptで遅延リストを実装した。 list = require 'list' import Function, Delay, List, Array, Sequence from list require 'std' local fib fib = Sequence\Table({1, 1})\appendDelay -> fib\zipWith op['+'], fib\tail! nat = Sequence\iterate (=> …

2013-02-02

何でも無限リスト

プログラミング

純Lispにはアトムとリストがあるけど、アトムを無くして、なんでも無限リストにしたらどうだろう？今までアトムだと思っていたものは、実はリストだったのだ。なんでもリストだから、carとcdrは何にでも適用できる。carは左のリストを取り出し、cdrは右の…

2013-01-19

新しいプログラミング言語

プログラミング

新言語登場新しいプログラミング言語を作っています。mandel59/psil · GitHub現状はこんな感じ。 let x: 'ハロー' y: add(+'1', +'9') z: {a: x; b: y} debug.print "\(z.a)ワールド \(z.b)"……でも内容はこれから色々変えるので、多分このままの形では残り…

2013-01-08

プログラミング言語Egisonのパターンマッチ機能をLua上で実装してみた

プログラミング

Programming Language Egison プログラミング言語Egisonは、強力なパターンマッチ機能を持つという。とりあえず、同じような機能をLua上で使えるように、MoonScriptを使って実装してみた。 mandel59/egimoon · GitHub print show match_all {1, 2, 3}, (List…