Expected results for test: P3-44.pl460

P3-44.pl460 :

(define (sum L)
	(if (null? L)
		0
		(+ (car L) (sum (cdr L)))
	)
)

(define (main)
	(display (sum '(2.5 5/2)))
	(newline)
	(display (sum '(03 2 3.5 7/10 01 5)))
	(newline)
)

(main)

Input file: P3-44.pl460

0 errors found in input file
P3-44.cpp :

// Autogenerated PL460 to C++ Code
// File: P3-44.cpp

#include <iostream>
#include "Object.h"
using namespace std;


Object sum (Object L)
{
	Object __RetVal;
	if (nullp (L))
	{
		__RetVal = Object("0");
	}
	else
	{
		__RetVal = (listop ("car", L) + sum(listop ("cdr", L)));
	}
	return __RetVal;
}

int main ()
{
	Object __RetVal;
	cout << sum(Object("(2.5 5/2 )"));
	cout << endl;
	cout << sum(Object("(03 2 3.5 7/10 01 5 )"));
	cout << endl;
	return 0;
}

PL460 program output: 

5.0
15.2

C++ program output: 

5.0
15.2

Differences:			      < pl460 | cpp >

5.0						5.0
15.2						15.2