Welcome to Teyjus Copyright (C) 1999 Gopalan Nadathur Teyjus comes with ABSOLUTELY NO WARRANTY This is free software, and you are welcome to redistribute it under certain conditions. Please view the accompanying file "COPYING" for more information. Teyjus> Error: Unknown command `stop'. Teyjus> Teyjus> [while_test] ?- checkall. ........... successfully ran 11 tests. yes [while_test] ?- sigma s0 \ (initial_store s0, meaningC (exp (num 3)) s0, show_store 0 s0 L). The answer substitution: L = nil More solutions (y/n)? y no (more) solutions [while_test] ?- sigma s1 \ sigma s0 \ (initial_store s0, (rtc reducesC (configC (exp (num 3)) s0) (configC C2 s1)), show_store 0 s0 L). The answer substitution: L = nil C2 = exp (num 3) More solutions (y/n)? y The answer substitution: L = nil C2 = skip More solutions (y/n)? n yes [while_test] ?- sigma s1 \ sigma s0 \ (initial_store s0, (rtc reducesC (configC (exp (num 3)) s0) (configC C2 s1)), show_store 0 s0 L). The answer substitution: L = nil C2 = exp (num 3) More solutions (y/n)? y The answer substitution: L = nil C2 = skip More solutions (y/n)? y no (more) solutions [while_test] ?- sigma s1 \ sigma s0 \ (initial_store s0, (rtc reducesC (configC (exp (num 3)) s0) (configC C2 s1)), show_store 0 s0 L). The answer substitution: L = nil C2 = exp (num 3) More solutions (y/n)? y The answer substitution: L = nil C2 = skip More solutions (y/n)? y no (more) solutions [while_test] ?- sigma s1 \ sigma s0 \ (initial_store s0, (rtc reducesC (configC (exp (num 3)) s0) (configC C2 s1)), show_store 0 s1 L). The answer substitution: L = nil C2 = exp (num 3) More solutions (y/n)? y The answer substitution: L = nil C2 = skip More solutions (y/n)? n yes [while_test] ?- sigma s1 \ sigma s0 \ (initial_store s0, (reducesC (configC (exp (num 3)) s0) (configC C2 s1)), show_store 0 s1 L). The answer substitution: L = nil C2 = skip More solutions (y/n)? n yes [while_test] ?- sigma s1 \ sigma s0 \ (initial_store s0, (reducesC (configC skip s0) (configC C2 s1)), show_store 0 s1 L). no (more) solutions [while_test] ?- sigma s1 \ sigma s0 \ (initial_store s0, (reducesC (configC (assign (loc 1) (num 541)) s0) (configC C2 s1)), show_store 0 s1 L). The answer substitution: L = 0 :: 541 :: nil C2 = skip More solutions (y/n)? n yes [while_test] ?- sigma s1 \ sigma s0 \ (initial_store s0, (reducesC (configC (semi (assign (loc 1) (num 1)) (assign (loc 2) (num 2))) s0) (configC C2 s1)), show_store 0 s1 L). The answer substitution: L = 0 :: 1 :: nil C2 = semi skip (assign (loc 2) (num 2)) More solutions (y/n)? n yes [while_test] ?- sigma s1 \ sigma s0 \ (initial_store s0, (rtc reducesC (configC (semi (assign (loc 1) (num 1)) (assign (loc 2) (num 2))) s0) (configC C2 s1)), show_store 0 s1 L). The answer substitution: L = nil C2 = semi (assign (loc 1) (num 1)) (assign (loc 2) (num 2)) More solutions (y/n)? y The answer substitution: L = 0 :: 1 :: nil C2 = semi skip (assign (loc 2) (num 2)) More solutions (y/n)? y The answer substitution: L = 0 :: 1 :: nil C2 = assign (loc 2) (num 2) More solutions (y/n)? y The answer substitution: L = 0 :: 1 :: 2 :: nil C2 = skip More solutions (y/n)? y no (more) solutions [while_test] ?- sigma s1 \ sigma s0 \ (initial_store s0, (rtc reducesE (configE (op add (deref (loc 1)) (num 2)) s0) (configE C2 s1)), show_store 0 s1 L). The answer substitution: L = nil C2 = op add (deref (loc 1)) (num 2) More solutions (y/n)? y The answer substitution: L = nil C2 = op add (num 0) (num 2) More solutions (y/n)? y The answer substitution: L = nil C2 = num 2 More solutions (y/n)? y no (more) solutions [while_test] ?- sigma s1 \ sigma s0 \ (initial_store s0, (rtc reducesE (configE (op add (deref (loc 1)) (deref (loc 2))) s0) (configE C2 s1)), show_store 0 s1 L). The answer substitution: L = nil C2 = op add (deref (loc 1)) (deref (loc 2)) More solutions (y/n)? y The answer substitution: L = nil C2 = op add (num 0) (deref (loc 2)) More solutions (y/n)? y The answer substitution: L = nil C2 = op add (num 0) (num 0) More solutions (y/n)? y The answer substitution: L = nil C2 = num 0 More solutions (y/n)? y no (more) solutions [while_test] ?- sigma s1 \ sigma s0 \ (initial_store s0, (rtc reducesE (configE (op mult (num 1) (op add (deref (loc 1)) (deref (loc 2)))) s0) (configE C2 s1)), show_store 0 s1 L). The answer substitution: L = nil C2 = op mult (num 1) (op add (deref (loc 1)) (deref (loc 2))) More solutions (y/n)? y The answer substitution: L = nil C2 = op mult (num 1) (op add (num 0) (deref (loc 2))) More solutions (y/n)? y The answer substitution: L = nil C2 = op mult (num 1) (op add (num 0) (num 0)) More solutions (y/n)? y The answer substitution: L = nil C2 = op mult (num 1) (num 0) More solutions (y/n)? y The answer substitution: L = nil C2 = num 0 More solutions (y/n)? y no (more) solutions