PhotoLog19
  • rss feed
  • random
  • mobile
  • archive

→ 29 - 12 - 2009

erlang lists:seq()を書いてみた

末尾再帰ではないですが


-module(seq).
-compile(export_all).

seq(X) -> seq(0,X,1).
seq(X,Y) -> seq(X,Y,1).

seq(X,X,_Z) -> [X];
seq(X,Y,Z) when X > Y , Z > 0 -> [];
seq(X,Y,Z) when Z > 0 -> [X | seq(X+Z, Y,...

About

振り返れば、ほら

I follow

  • mcsgsym
  • otsune
  • yaruo
  • xyo
  • cycling-ex
  • suniti
  • sft
  • taknom
  • markie
  • lomo
  • oldfashionedbass
  • satojkovic
Theme by Guido Rossi. Powered by Tumblr