From badf6112fe169f399d9fe4d25ea22a4551ed153d Mon Sep 17 00:00:00 2001 From: Snafu Date: Mon, 10 May 2010 17:49:12 +0200 Subject: [PATCH] New Punkt-vor-Strich test --- codea/snafu_04.0 | 15 +++++++++++++++ codea/snafu_04.call | 7 +++++++ codea/snafu_04.instr | 1 + 3 files changed, 23 insertions(+) create mode 100644 codea/snafu_04.0 create mode 100644 codea/snafu_04.call create mode 100644 codea/snafu_04.instr diff --git a/codea/snafu_04.0 b/codea/snafu_04.0 new file mode 100644 index 0000000..aeff3a0 --- /dev/null +++ b/codea/snafu_04.0 @@ -0,0 +1,15 @@ +method pvs1(a b) + return (this - a) * b; +end; + +method pvs2(a b) + return this - (a * b); +end; + +method pvs3(a b) + return (this * a) - b; +end; + +method pvs4(a b) + return this * (a - b); +end; diff --git a/codea/snafu_04.call b/codea/snafu_04.call new file mode 100644 index 0000000..7a9fd9a --- /dev/null +++ b/codea/snafu_04.call @@ -0,0 +1,7 @@ +long pvs1(long, long, long); +long pvs2(long, long, long); +long pvs3(long, long, long); +long pvs4(long, long, long); + + +RET((pvs1(2,3,5) == -5) && (pvs2(2,3,5) == -13) && (pvs3(2,3,5) == 1) && (pvs4(2,3,5) == -4)); diff --git a/codea/snafu_04.instr b/codea/snafu_04.instr new file mode 100644 index 0000000..209e3ef --- /dev/null +++ b/codea/snafu_04.instr @@ -0,0 +1 @@ +20 -- 2.25.1