added hello world in hangul

2011-08-09 14:00:08 -04:00 · 2011-08-09 14:00:08 -04:00 · eb7ff781fb
commit eb7ff781fb
parent c31159d311
1 changed files with 22 additions and 0 deletions
--- a/examples/hello-kr.rkt
+++ b/examples/hello-kr.rkt
@ -0,0 +1,22 @@
+#lang planet dyoo/whalesong/korean
+
+
+(정의 (안녕 이름)
+    (string-append "안녕" " " 이름))
+
+
+(displayln (안녕 "danny"))
+
+
+(정의 (f x)
+    (조건부 
+     [(= x 0)
+      1]
+     [다른
+      (* x (f (- x 1)))]))
+
+(f 50)
+
+
+(정의-구조 사람 (이름 나이))
+(make-사람 "danny" 32)