Ph: Love: Fun: Programmer's Love Defined Poem by Brian Johnston

(Proving Once And For All Time That Love Is Not Binary)

Definition of Variables:
X, PATH, JOHN, JOHNJOHN, MARSHA, MARSHAMARSHA, ALPHA, OMEGA

Initial Values:
SET X=0, SET PATH = 1, SET JOHN =.5, JOHNJOHN = 1000,
MARSHA =.5, MARSHAMARSHA = 1000

Program Start:
LOVE101: LET ALPHA = JOHN + MARSHA; John And Marsha Equals 1 means that the couple feels like they are united. However John's and Marsha's values range from 0 to 1.
LET OMEGA= JOHNJOHN - MARSHAMARSHA; John Without Marsha Equals 0 (and visa versa) means that the couple wants to stay together.

LOOP1: LET X= X+1
DOES ALPHA = 1, THEN CONTINUE, ELSE END
DOES OMEGA = O, THEN CONTINUE, ELSE END

FLIPFLOP: DOES PATH = 1, THEN CONTINUE, ELSE PATH2

PATH1: LET JOHN = FUNCTION (RANDOM NUMBER 0-1)
LET JOHNJOHN = FUNCTION (RANDOM NUMBER)
LET MARSHA = FUNCTION (MARSHA'S UNITARY CHOICE 0-1) *
LET MARSHAMARSHA = FUNCTION (MARSHAMARSHA's NULL CHOICE) *
FLIPFLOP1: SET PATH = 2
GO TO CHECKTIME

PATH2: LET MARSHA = FUNCTION (RANDOM NUMBER 0-1)
LET MARSHAMARSHA = FUNCTION (RANDOM NUMBER)
LET JOHN = FUNCTION (JOHN'S UNITARY CHOICE 0-1) *
LET JOHNJOHN = FUNCTION (JOHNJOHN'S NULL CHOICE) *
FLIPFLOP2: SET PATH = 1

CHECKTIME: DOES X = INFINITY** THEN END, ELSE GO TO LOVE101
END: FULL STOP