File: Test1

package info (click to toggle)
omake 0.10.7-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 14,076 kB
  • sloc: ml: 49,729; ansic: 5,163; makefile: 688; sh: 110
file content (12 lines) | stat: -rw-r--r-- 211 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
 
#
# Simple, no keywords
#
curry.f() =
   println(Curried function was called)
   badd(i, j) =
      add($i, $j)  

i = $(f 1, 2)
if $(not $(equal $i, 3))
   eprintln($"Error: result is $i, expected 3")
   exit 1