1. Forum
  2. Newsgroups
  3. comp.theory

  • A better HHH?

    From Chris M. Thomasson@chris.m.thomasson.1@gmail.com to comp.theory on Wed Oct 29 22:39:35 2025
    From Newsgroup: comp.theory

    This is for Olcott and dart. Olcott asked what should HHH(DD) return?
    Well, check this shit out, lol:
    ______________________________
    1 HOME
    5 PRINT "HHH"
    6 P0 = 0
    7 P1 = 0
    10 INPUT "Shall DD halt or not? " ; A$
    20 IF A$ = "YES" GOTO 666
    30 P1 = P1 + 1
    40 IF P0 > 0 AND P1 > 0 GOTO 1000
    50 GOTO 10

    666 PRINT "OK!"
    667 P0 = P0 + 1
    700 PRINT "NON_HALT P0 = "; P0
    710 PRINT "HALT P1 = "; P1
    720 IF P0 > 0 AND P1 > 0 GOTO 1000
    730 PRINT "ALL PATHS FAILED TO BE HIT!"
    740 GOTO 10


    1000
    1010 PRINT "FIN... All paths hit."
    1020 PRINT "NON_HALT P0 = "; P0
    1030 PRINT "HALT P1 = "; P1
    ______________________________


    You can run it here:

    https://www.calormen.com/jsbasic
    --- Synchronet 3.21a-Linux NewsLink 1.2
  • From Chris M. Thomasson@chris.m.thomasson.1@gmail.com to comp.theory on Wed Oct 29 22:42:52 2025
    From Newsgroup: comp.theory

    On 10/29/2025 10:39 PM, Chris M. Thomasson wrote:
    This is for Olcott and dart. Olcott asked what should HHH(DD) return?
    Well, check this shit out, lol:
    ______________________________
    1 HOME
    5 PRINT "HHH"
    6 P0 = 0
    7 P1 = 0
    10 INPUT "Shall DD halt or not? " ; A$

    lol! I should fuzz A$ right here with random data, except sometimes say
    less than 1% it can call the halt path aka A$ = "YES". Any other input
    in the non-halt path, just like DD has. The RNG would be answering the questions for us... When all paths are hit, the sim goes fin.



    20 IF A$ = "YES" GOTO 666
    30 P1 = P1 + 1
    40 IF P0 > 0 AND P1 > 0 GOTO 1000
    50 GOTO 10

    666 PRINT "OK!"
    667 P0 = P0 + 1
    700 PRINT "NON_HALT P0 = "; P0
    710 PRINT "HALT P1 = "; P1
    720 IF P0 > 0 AND P1 > 0 GOTO 1000
    730 PRINT "ALL PATHS FAILED TO BE HIT!"
    740 GOTO 10


    1000
    1010 PRINT "FIN... All paths hit."
    1020 PRINT "NON_HALT P0 = "; P0
    1030 PRINT "HALT P1 = "; P1
    ______________________________


    You can run it here:

    https://www.calormen.com/jsbasic

    --- Synchronet 3.21a-Linux NewsLink 1.2
  • From Chris M. Thomasson@chris.m.thomasson.1@gmail.com to comp.theory on Wed Oct 29 23:44:04 2025
    From Newsgroup: comp.theory

    On 10/29/2025 10:39 PM, Chris M. Thomasson wrote:
    1 HOME
    5 PRINT "HHH"
    6 P0 = 0
    7 P1 = 0
    10 INPUT "Shall DD halt or not? " ; A$
    20 IF A$ = "YES" GOTO 666
    30 P1 = P1 + 1

    Damn it! I think I inverted the counters. lol.

    30 P1 = P1 + 1

    should be:

    30 P0 = P0 + 1

    40 IF P0 > 0 AND P1 > 0 GOTO 1000
    50 GOTO 10

    666 PRINT "OK!"
    667 P0 = P0 + 1

    667 should be

    P1 = P1 + 1


    700 PRINT "NON_HALT P0 = "; P0
    710 PRINT "HALT P1 = "; P1


    lol. It makes my output correct. lol.


    720 IF P0 > 0 AND P1 > 0 GOTO 1000
    730 PRINT "ALL PATHS FAILED TO BE HIT!"
    740 GOTO 10


    1000
    1010 PRINT "FIN... All paths hit."
    1020 PRINT "NON_HALT P0 = "; P0
    1030 PRINT "HALT P1 = "; P1

    --- Synchronet 3.21a-Linux NewsLink 1.2
  • From Chris M. Thomasson@chris.m.thomasson.1@gmail.com to comp.theory on Wed Oct 29 23:45:55 2025
    From Newsgroup: comp.theory

    On 10/29/2025 10:39 PM, Chris M. Thomasson wrote:
    1 HOME
    5 PRINT "HHH"
    6 P0 = 0
    7 P1 = 0
    10 INPUT "Shall DD halt or not? " ; A$
    20 IF A$ = "YES" GOTO 666
    30 P1 = P1 + 1
    ^^^^^^^^^^^^


    40 IF P0 > 0 AND P1 > 0 GOTO 1000
    50 GOTO 10

    666 PRINT "OK!"
    667 P0 = P0 + 1
    ^^^^^^^^^^^^^^

    [...]


    Damn it! I inverted the counters. Here is corrected code. Sorry about
    that god damn nonsense. Shit. Serves me right for typing the code in the
    damn newsreader:
    ___________________________
    1 HOME
    5 PRINT "HHH"
    6 P0 = 0
    7 P1 = 0
    10 INPUT "Shall DD halt or not? " ; A$
    20 IF A$ = "YES" GOTO 666
    30 P0 = P0 + 1
    40 IF P0 > 0 AND P1 > 0 GOTO 1000
    50 GOTO 10

    666 PRINT "OK!"
    667 P1 = P1 + 1
    700 PRINT "NON_HALT P0 = "; P0
    710 PRINT "HALT P1 = "; P1
    720 IF P0 > 0 AND P1 > 0 GOTO 1000
    730 PRINT "ALL PATHS FAILED TO BE HIT!"
    740 GOTO 10


    1000
    1010 PRINT "FIN... All paths hit."
    1020 PRINT "NON_HALT P0 = "; P0
    1030 PRINT "HALT P1 = "; P1
    ___________________________

    Shit happens. ;^o

    --- Synchronet 3.21a-Linux NewsLink 1.2