Expected results for test: P3-38.pl460

P3-38.pl460 :

(define (function0 V)
	(* (+ 5 V) (- 5 V))
)

(define (function1 V0 V1 V2)
	(* (+ V0 V1) (- V1 V2) (/ V0 V2))
)

(define (function2 V0 V1 L)
	(append (cons V0 L) (cons V1 L))
)

(define (main)
	(display (function0 2))
	(newline)
	(display (function1 2 3.7 0.5))
	(newline)
	(display (function2 2 'a '(0 2)))
	(newline)
)

(main)

Input file: P3-38.pl460

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

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

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


Object function0 (Object V)
{
	Object __RetVal;
	__RetVal = ((Object("5") + V) * (Object("5") - V));
	return __RetVal;
}

Object function1 (Object V0, Object V1, Object V2)
{
	Object __RetVal;
	__RetVal = ((V0 + V1) * (V1 - V2) * (V0 / V2));
	return __RetVal;
}

Object function2 (Object V0, Object V1, Object L)
{
	Object __RetVal;
	__RetVal = listop ("append", listop ("cons", V0, L), listop ("cons", V1, L));
	return __RetVal;
}

int main ()
{
	Object __RetVal;
	cout << function0(Object("2"));
	cout << endl;
	cout << function1(Object("2"), Object("3.7"), Object("0.5"));
	cout << endl;
	cout << function2(Object("2"), Object("a"), Object("(0 2 )"));
	cout << endl;
	return 0;
}

PL460 program output: 

21
72.96000000000001
(2 0 2 a 0 2)

C++ program output: 

21
72.96
(2 0 2 a 0 2)

Differences:			      < pl460 | cpp >

21						21
72.96000000000001			      |	72.96
(2 0 2 a 0 2)					(2 0 2 a 0 2)