nendo 0.1.0 → 0.2.0

data/sample/exit.nnd

@@ -0,0 +1,2 @@
+;;-*- mode: nendo; syntax: scheme -*-;;
+(exit)

data/sample/fact.nnd

@@ -0,0 +1,15 @@
+#!/bin/sh
+true; #-*- mode: nendo; syntax: scheme -*-;;
+true; exec /usr/local/bin/nendo $0 $*
+
+;; fact
+(define (fact n)
+  (if (zero? n)
+      1
+      (* n #?=(fact (- n 1)))))
+
+(print (fact 5))
+
+
+
+

data/sample/fizzbuzz1.nnd

@@ -0,0 +1,23 @@
+#!/bin/sh
+true; #-*- mode: nendo; syntax: scheme -*-;;
+true; exec /usr/local/bin/nendo $0 $*
+
+;; FizzBuzz write in Nendo
+(define (fizzbuzz max)
+  (map
+   (lambda (x)
+     (let ((x (+ x 1)))
+       (cond
+        ((= 0 (% x 15))
+         "FizzBuzz")
+        ((= 0 (% x 3))
+         "Fizz")
+        ((= 0 (% x 5))
+         "Buzz")
+        (else
+         x))))
+   (range max)))
+
+(for-each
+ print
+ (fizzbuzz 30))

data/sample/scratch.nnd

@@ -0,0 +1,11 @@
+;;-*- mode: nendo; syntax: scheme -*-;;
+
+;; -----------------
+(enable-idebug)
+(define debug-print-length 256)
+
+"abc"
+"a\nb"
+"a\"b"
+"abc\"abc\""
+"abc\'abc\'"

data/sample/tak.nnd

@@ -0,0 +1,13 @@
+;;-*- mode: scheme; syntax: scheme -*-;;
+
+;; takeuchi function
+(define (tak x y z)
+  (if (> x y)
+      (tak (tak (- x 1) y z)
+           (tak (- y 1) z x)
+           (tak (- z 1) x y))
+      y))
+
+(print (tak 8 4 0))
+
+

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: nendo
 version: !ruby/object:Gem::Version 
-  version: 0.1.0
+  version: 0.2.0
 platform: ruby
 authors: 
 - Kiyoka Nishiyama
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2010-01-16 00:00:00 +09:00
+date: 2010-03-19 00:00:00 +09:00
 default_executable: nendo
 dependencies: []
 
@@ -23,13 +23,18 @@ extra_rdoc_files:
 - README
 files: 
 - bin/nendo
+- emacs/nendo-mode.el
 - lib/init.nnd
+- lib/init.nndc
 - lib/nendo.rb
+- sample/exit.nnd
+- sample/fact.nnd
+- sample/fizzbuzz1.nnd
+- sample/scratch.nnd
+- sample/tak.nnd
 - README
 has_rdoc: true
 homepage: http://github.com/kiyoka/nendo
-licenses: []
-
 post_install_message: 
 rdoc_options: 
 - --charset=UTF-8
@@ -50,9 +55,9 @@ required_rubygems_version: !ruby/object:Gem::Requirement
 requirements: []
 
 rubyforge_project: 
-rubygems_version: 1.3.5
+rubygems_version: 1.3.1
 signing_key: 
-specification_version: 3
+specification_version: 2
 summary: Nendo is a dialect of Lisp.
 test_files: []