Original text:
hacksaw > cat -e lm_ack.txt
; Ackermann^M$
(define a (lambda (n m)^M$
(if (eqv? n 0) (+ m 1)^M$
(if (eqv? m 0) (a (- n 1) 1)^M$
(a (- n 1) (a n (- m 1)))))))^M$
First test works:
hacksaw > cat -e lm_ack.txt | tr -d "\n"
; Ackermann^M$(define a (lambda (n m)^M$ (if (eqv? n 0) (+ m 1)^M$
(if (eqv? m 0) (a (- n 1) 1)^M$ (a (- n 1) (a n (- m
1)))))))^M$habitrail:~/palm/lisp_270s/samples
Second fails:
hacksaw > cat -e lm_ack.txt | tr -d "\r"
; Ackermann^M$
(define a (lambda (n m)^M$
(if (eqv? n 0) (+ m 1)^M$
(if (eqv? m 0) (a (- n 1) 1)^M$
(a (- n 1) (a n (- m 1)))))))^M$
