(10-19-2024, 08:21 PM)Dimster Wrote: Well Tempodi, seems Gossip IMP Nudity. Takes my Girl/Boy IMP  Pink/Blue to a new level. Did you notice how many males in that video wore blue?

I liked that Wikipedia article as well. Seems to agree that IMP works better with numeric than normal language logic.

I gather you are not a fan of Gemini??

Rem  demo getting gender from choosen color

pink = -1

Girl = pink

blue = 0

Boy = blue

Print "I'll say your gender if you answer correctly to the following question.."

Input "What color do you choose? pink/blue--> ", col$

col$ = LCase$(col$)

If col$ = "pink" Then

    gender = -1

ElseIf col$ = "blue" Then

    gender = 0

Else

    Print " wrong input...quitting"

    End

End If





IsAGirl = (Girl = pink) Imp (gender = pink)

IsABoy = ((Boy = blue) Imp (gender = blue))

Print "Gender      Girl          Boy"

Print gender, IsAGirl, IsABoy

If gender = 0 Then

    Print " Boy ";

ElseIf gender = -1 Then

    Print " Girl";

End If





If IsAGirl = 0 Then

    Print "        False ";

ElseIf IsAGirl = -1 Then

    Print "        True ";

End If



If IsABoy = 0 Then

    Print "        False  "

ElseIf IsABoy = -1 Then

    Print "        True  "

End If

(10-22-2024, 04:51 PM)Dimster Wrote: I appreciate the IMP code, I have added it to my collection of IMP sample codes. By the way, do you recall this one?

Code: (Select All)

'IMP demo in multiple cases
Randomize Timer
_Title "IMProbable Demonstrations of the IMPossible Logic Operator named IMP..."
'demo  OutOfRange  InTheRange Lowest Uppest
Do
    n$ = UCase$(InKey$)
    If n$ = Chr$(27) Then End
    If n$ <> "" And InStr("OILU", n$) Then
        Cls
        For a = 1 To 10
            b = Int(Rnd * 40) + 1
            c = Int(Rnd * 30) + 2 + b
            d = Int(Rnd * 79) + 1
            Locate (a - 1) * 2 + 1, 1
            Print b; "  "; c; "  "; d; "  ";
            If n$ = "O" Then If outheRange(b, c, d) Then Print "out of range "; ' Else Print "in the range ";
            If n$ = "I" Then If intheRange(b, c, d) = -1 Then Print "In the range<---";
            If n$ = "L" Then If Lowest(b, c, d) Then Print "lowest  is "; d
            If n$ = "U" Then If Uppest(b, c, d) Then Print "Uppest  is "; d
            ' graphic rappresentation
            Color 2, 0: Locate (a - 1) * 2 + 2, b: Print ">";: Locate , c: Print "<";: Color 14, 0: Locate , d: Print "O";: Color 7, 0
        Next a
    End If
    Locate 23, 1: Print " Outherange Intherange Lowest Uppest, Escape to quit"
    Color 14, 0: Locate 23, 2: Print "O";: Locate 23, 13: Print "I";: Locate 23, 24: Print "L";: Locate 23, 31: Print "U";: Color 7, 0
    _Limit 10
Loop


' SUB and FUNCTION area  / area delle SUB e delle FUNCTION
Function outheRange (min As Integer, max As Integer, value As Integer)
    outheRange = 0
    outheRange = (min <= value Imp value >= max)
End Function

Function intheRange (min As Integer, max As Integer, value As Integer)
    intheRange = 0
    intheRange = (value <= max) Imp (value <= min)
    intheRange = Not intheRange
End Function

Function Lowest (a1%, a2%, T%)
    'NOT a OR b
    '3 8 1 -> F imp F = T
    '3 8 4 -> T imp F = F  no lowest
    '5 3 2 -> F imp T = T
    '6 4 9 -> T imp T = T  --> bug that it solves ordering a1% vs a2%
    If a1% > a2% Then Swap a1%, a2%
    Lowest = a1% < T% Imp a1% > a2%
End Function

Function Uppest (a1%, a2%, T%)
    'NOT a OR b
    '3 8 9 -> F imp T = T
    '3 2 6 -> F imp F = T
    '5 6 2 -> T imp T = T  -->bug  that it solves ordering a1% vs a2%
    '6 4 2 -> T imp F = F no uppest
    If a1% < a2% Then Swap a1%, a2%
    Uppest = a1% > T% Imp a1% < a2%
End Function

I get an error on the "Function intheRange" but love the Title of the program.

In terms of using AI, I'm afraid that train has left the station, we are going to be inundated with it.
Interesting you have mentioned Popper, it is his falsification theory that I find my computer understands the most ( ie A theory is Valid Until Proven False). Trouble is my computer is suggesting more of my theories are proven false than true. New Theory, I think my computer has a drinking problem.

InTheRange = NOT InTheRange 

Function intheRange (min As Integer, max As Integer, value As Integer)

    intheRange = 0

    tmp = (value <= max) Imp (value <= min)

    intheRange = Not tmp

    '  intheRange = Not intheRange        REM <----------- this instruction is an error now that compiler solved the issue about functions

End Function

(10-16-2024, 02:57 PM)Dimster Wrote: While Gemini was thinking the above was an issue for IMP dealing with string values it told me QB64PE could have a bug in its application of IMP after the following code using IMP was tested :

Code: (Select All)

Input "Enter your age: ", age
isADULT = age >= 18

If isADULT Imp True Then
    Print "You are an Adult"
Else
    Print "You are a minor"
End If

 
The above code was Gemini's answer to a previous attempt on the use of IMP and touts that this code gives the correct answer.

Input "Enter your age: ", age

isADULT = age >= 18



If isADULT Then

    Print "You are an Adult"

Else

    Print "You are a minor"

End If 

INPUT "enter your age "; age

IsAdult = age >=18



IF IsAdult IMP True then

    PRINT "You are an adult"

ELSE

    PRINT "You are a minor"

END IF

'Input "enter your age "; age

false = 0

true = Not false



age = 8 ' is a minor

IsAdult = age >= 18

If IsAdult Imp true Then

    Print "You are an adult"

Else

    Print "You are a minor"

End If





age = 30 ' is an adult

IsAdult = age >= 18

If IsAdult Imp true Then

    Print "You are an adult"

Else

    Print "You are a minor"

End If