procedure selfhalt ( var p , result : string ) ; var answer : string ; begin halt ( p , p , answer ) ; if answer ' Halt . ' then result : = ' Halts on self ... ... <看更多>
Search
Search
procedure selfhalt ( var p , result : string ) ; var answer : string ; begin halt ( p , p , answer ) ; if answer ' Halt . ' then result : = ' Halts on self ... ... <看更多>