Quick Scheme question, begginners

[SnoopCat]

(define fact
(lambda (x)
(cond
( ( = x 0 ) 1 )
( else ( * x ( fact x - 1 ) ) )
)
)
)




=> (fact 3)


i get an error..... anyone see the bug?
its for factorials

 

[Platypus]

(define fact
(lambda (x))
(cond
( ( = x 0 ) 1 )
( else ( * x ( fact x - 1 ) ) )
)
)
)




=> (fact 3)


try that..

 

[SnoopCat]

same darn error

 

[Platypus]

What is the exact error?

 

[SnoopCat]

procedure fact: expects 1 argument, given 3: 3 - 1

 

[Xede]

Try replacing (fact x - 1) with (fact (- x 1)) or something like that...