langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Character-codes/SNOBOL4/character-codes.sno
+++ b/Task/Character-codes/SNOBOL4/character-codes.sno
@ -0,0 +1,14 @@
+        define('chr(n)') :(chr_end)
+chr     &alphabet tab(n) len(1) . chr :s(return)f(freturn)
+chr_end
+
+        define('asc(str)c') :(asc_end)
+asc     str len(1) . c
+        &alphabet break(c) @asc :s(return)f(freturn)
+asc_end
+
+*       # Test and display
+        output = char(65) ;* Built-in
+        output = chr(65)
+        output = asc('A')
+end