[ create a new paste ] login | about

Project: programmingpraxis
Link: http://programmingpraxis.codepad.org/iMaXelW1    [ raw code | output | fork ]

programmingpraxis - Scheme, pasted on Sep 6:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
; the first two programs

(define (hello)
  (display "Hello, world!")
  (newline))

(define (temp-table)
  (do ((f 0 (+ f 20))) ((< 300 f))
    (display f)
    (display #\tab)
    (display (inexact->exact (round (* (- f 32) 5/9))))
    (newline)))

(hello)
(newline)
(temp-table)


Output:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Hello, world!

0	-18
20	-7
40	4
60	16
80	27
100	38
120	49
140	60
160	71
180	82
200	93
220	104
240	116
260	127
280	138
300	149


Create a new paste based on this one


Comments: