exec:
ghc -e p2 Interp
>
ghc -e p2 Interp
x := + ( 6 );
y := 7;
p := 0;
while ( x != 0 )
do
if ( ( x mod 2 ) != 0 )
then
x := ( x - 1 );
p := ( p + y )
else
x := ( x div 2 );
y := ( y * 2 )
end if
end while
>
Dieses ist das Protokoll eines Testlaufs
Letzte Änderung: 20.04.2024 08:31:48
©
Prof. Dr. Uwe Schmidt
