Rosetta Code

24 game: Difference between revisions

Page Discussion

24 game (view source)

Revision as of 01:59, 14 May 2024

2,427 bytes added ,  15 days ago
→‎{{header|FutureBasic}}
(3 intermediate revisions by the same user not shown)
Line 5,838:
 
=={{header|FutureBasic}}==
24 Game
May 12, 2024
 
Updated game rules
May 13, 2024
 
Rich Love
<syntaxhighlight lang="futurebasic">
// 24 Game
// May 12, 2024 Rich Love
 
Modified to include 96 blocks of numbers for random selection.
 
Thanks to Ken and Bernie
<syntaxhighlight lang="futurebasic">
#build CompilerOptions @"-Wno-unused-variable"
 
Line 5,852 ⟶ 5,854:
 
void local fn EraseErrorText
 
CGRect r
r = fn CGRectMake(10, 200, 400, 15)
rect fill r,fn ColorBlack
 
end fn
 
local fn ArcRandom( a as long, b as long ) as long
long i
cln i = (arc4random()%(b-a+1))+a;
end fn = fn floor(i)
 
local fn GetRandomNumbers as CFStringRef
CFArrayRef combos = @[¬
@"1 3 2 6", @"1 7 2 1", @"1 5 2 2", @"1 9 2 1", @"3 7 6 2",¬
@"1 2 3 9", @"1 6 3 1", @"1 4 3 3", @"1 4 5 6", @"1 3 4 4",¬
@"1 1 5 4", @"1 9 3 1", @"2 2 3 2", @"2 6 3 1", @"6 4 9 8",¬
@"2 8 2 1", @"3 2 5 2", @"6 5 4 4", @"2 6 2 1", @"2 4 3 1",¬
@"2 8 1 1", @"2 9 1 1", @"3 9 6 2", @"3 5 2 1", @"3 3 2 2",¬
@"3 7 1 1", @"3 2 4 1", @"2 5 7 8", @"3 8 1 6", @"4 2 9 1",¬
@"4 4 2 1", @"4 8 1 1", @"8 8 9 6", @"4 6 1 1", @"5 3 2 1",¬
@"5 7 1 1", @"5 1 2 2", @"1 5 1 4", @"5 2 2 2", @"5 4 1 1",¬
@"5 8 1 1", @"3 4 3 3", @"6 6 2 1", @"6 2 2 1", @"6 1 4 1",¬
@"9 6 2 3", @"9 5 5 9", @"7 1 3 1", @"7 5 1 1", @"8 1 8 6",¬
@"7 1 2 2", @"7 2 1 1", @"7 4 1 1", @"8 3 1 1", @"8 4 2 1",¬
@"8 1 3 1", @"8 2 1 1", @"9 3 2 1", @"2 3 5 3", @"9 1 2 1",¬
@"9 1 8 3", @"9 2 4 3", @"9 4 1 3", @"4 7 8 2", @"1 8 6 2",¬
@"6 1 6 1", @"1 6 2 2", @"1 8 3 1", @"5 7 1 3", @"6 2 3 4",¬
@"5 5 6 1", @"2 6 1 2", @"8 1 2 4", @"4 9 6 1", @"6 4 1 2",¬
@"4 7 3 2", @"5 5 4 9", @"7 3 6 2", @"6 1 2 2", @"6 2 1 2",¬
@"9 2 3 7", @"1 2 5 2", @"5 3 4 7", @"1 3 8 1", @"1 4 5 2",¬
@"1 4 7 1", @"1 5 6 2", @"1 5 8 1", @"2 6 7 1", @"2 3 4 2",¬
@"2 3 6 1", @"2 4 5 1", @"3 4 5 9", @"4 1 2 9", @"2 1 3 5",¬
@"2 2 3 4"]
 
long i = fn ArcRandom( 0, len(combos) - 1 )
end fn = combos[i]
 
 
local fn EvaluateMath( equation as CFStringRef ) as CFStringRef
equation = fn StringByReplacingOccurrencesOfString( lcase(equation), @"x", @"*" )
 
CFStringRef result = NULL
RegularExpressionRef regex = fn RegularExpressionWithPattern( @"[0-9.]+", NSRegularExpressionCaseInsensitive, NULL )
CFArrayRef matches = fn RegularExpressionMatches( regex, equation, 0, fn CFRangeMake( 0, len(equation) ) )
NSInteger intConversions = 0
TextCheckingResultRef match
CFRange originalRange
CFRange adjustedRange
CFStringRef value
 
for match in matches
originalRange = fn TextCheckingResultRange( match )
adjustedRange = fn CFRangeMake( ( originalRange.location + ( intConversions * len( @".0") ) ), originalRange.length )
value = fn StringSubstringWithRange( equation, adjustedRange )
if fn StringContainsString( value, @"." )
continue
else
equation = fn StringByReplacingCharactersInRange( equation, adjustedRange, fn StringWithFormat( @"%@.0", value ) )
intConversions++
end if
next
ExceptionRef e
try
ExpressionRef expression = fn ExpressionWithFormat( equation )
CFNumberRef number = fn ExpressionValueWithObject( expression, NULL, NULL )
result = fn StringWithFormat( @"%.3f", dblval( number ) )
end try
 
catch (e)
result = fn StringWithFormat( @"%@", e ) : exit fn
end catch
// Test if result is an integer and, if so, return result as an integer
if( fn StringDoubleValue( result ) == fn floorf( fn StringDoubleValue( result ) ) )
result = fn ArrayFirstObject( fn StringComponentsSeparatedByString( result, @"." ) )
end if
end fn = result
Line 5,901 ⟶ 5,934:
 
local fn QuitOrPlayAlert(GameResult as CFStringRef)
alert -2,,GameResult,@"You won!",@"Quit;Play Again"
AlertButtonSetKeyEquivalent( 2, 2, @"\e" )
alert -2,,GameResult,@"Game Over",@"Quit;Play Again"
short result
AlertButtonSetKeyEquivalent( 2, 2, @"\e" )
result = alert 2
short result
if ( result != NSAlertSecondButtonReturn ) then appterminate
result = alert 2
if ( result != NSAlertSecondButtonReturn ) then appterminate
end fn
 
 
local fn BuildWindow
CGRect r = fn CGRectMake( 0, 0, 580, 250)
window 1, @"24 Game", r
CGRect r = fn CGRectMake( 0, 0, 580, 250)
windowcenter(1)
window 1, @"24 Game", r
WindowSetBackgroundColor(1,fn ColorBlack)
windowcenter(1)
WindowSetBackgroundColor(1,fn ColorBlack)
end fn
 
end fn
 
///////// Start //////////
 
fn BuildWindow
 
 
short d(4), i
CFStringRef CheckForDuplicates(97)
for i = 1 to 96
CheckForDuplicates(i) = @""
next i
 
short DuplicatesCounter
DuplicatesCounter = 0
 
 
Line 5,932 ⟶ 5,971:
 
print
 
print %(10,15),"Given four numbers and using just the +, -, *, and / operators; and the"
print %(10,30),"possible use of parenthesis (), enter an expression that equates to 24."
print %(10,45),"You must use all your numbers and only those numbers."
print %(10,60),"Examples: 9618 Solution 9 + 6 + 1 + 8 or 37733173 Solution ((3 * 1) * 7) + 3"
print
print %(10,85),"Enter Q to quit or S to skip to the next number."
 
"GetFourNumbers"
 
CFArrayRef randomNumbers : randomNumbers= fn StringComponentsSeparatedByString( fn GetRandomNumbers, @" " )
"GetRandomNumbers"
CFStringRef RandomNumberblock : RandomNumberblock = @""
short i
CFStringRef RandomNumberblockAdd : RandomNumberblockAdd = @""
short d(4)
 
short chk(4)
for i = 10 to 43
// create a string from the 4 numbers
d(i)= rnd(9) // digets 1..9
RandomNumberblockAdd = randomNumbers[i]
chk(i)=d(i)
RandomNumberblock = fn StringByAppendingString(RandomNumberblock,RandomNumberblockAdd)
next
RandomNumberblock = fn StringByAppendingString(RandomNumberblock,@" ")
next i
 
 
if DuplicatesCounter = > 96
// reset counter when last number is retrieved and start from the first number block
DuplicatesCounter = 0
for i = 1 to 96
CheckForDuplicates(i) = @""
next i
end if
 
for i = 1 to 96
// check the current numbers with the numbers already used
if fn StringIsEqual(RandomNumberblock,CheckForDuplicates(i))
RandomNumberblock = fn StringWithString(CheckForDuplicates(DuplicatesCounter))
goto "GetFourNumbers"
end if
next i
 
DuplicatesCounter ++
CheckForDuplicates(DuplicatesCounter) = fn StringWithString(RandomNumberblock)
 
d(1) = fn StringIntegerValue( randomNumbers[0] )
d(2) = fn StringIntegerValue( randomNumbers[1] )
d(3) = fn StringIntegerValue( randomNumbers[2] )
d(4) = fn StringIntegerValue( randomNumbers[3] )
 
//d(1) = 9:d(2) = 6:d(3) = 1:d(4) = 8 // Uncomment to test with 9618 numbers. Solution 9 + 6 + 1 + 8
Line 5,957 ⟶ 6,023:
 
print
 
text ,,fn colorGreen
print %(10,110),"These are your numbers: "
Line 5,963 ⟶ 6,028:
text ,18,fn colorGreen
for i = 1 to 4
print d(i); " ";
next
 
print
 
text ,12,fn colorWhite
printf @"\n\n\n"
 
CFStringRef expr
print:print:print:print
bool TryAgain : TryAgain = _false
CFStringRef MessageText
CFStringRef UserInput = NULL
 
str255 expr
bool TryAgain
TryAgain = _false
str255 MessageText
CFStringRef MessageTextRef
 
CFStringRef UserInput = 0
"InputExpression"
 
if TryAgain
MessageText = fn StringWithFormat( @"Enter math expression: [ " + expr + "'%@' was incorrect ]", expr )
UserInput = input %(10, 190), MessageText, @"123456789+-*/()qs", YES,, 0
MessageTextRef = fn StringWithPascalString(MessageText)
UserInput = input % (10, 190),MessageTextRef, @"123456789+-*/()q", YES,, 0
else
UserInput = input % (10, 190), @"Enter math expression:", @"123456789+-*/()qqs", YES,, 0
end if
 
if ( UserInput == NULL ) then "InputExpression"
expr = UserInput
fn CFStringGetPascalString (UserInput, @expr, 256, _kCFStringEncodingMacRoman)
if expr = @"" then "InputExpression"
if fn StringIsEqual(ucase$(expr) =, @"Q") then appterminate
if fn StringIsEqual(ucase$(expr) =, @"XS") then appterminate"Main"
 
 
//check expr for validity
short j
 
bool GotAllNumbers : GotAllNumbers = _false
 
short ThisNumberPosition : ThisNumberPosition = 0
bool GotAllNumbers
short GotaNumber : GotaNumber = 0
gotAllNumbers = _false
short TotalNumbers : TotalNumbers = 0
short ThisNumberPosition
ThisNumberPosition = 0
short j
short GotaNumber
GotaNumber = 0
short TotalNumbers
TotalNumbers = 0
 
for i = 1 to 4
GotaNumber = 0
for j = 10 to len$(expr) -1
ThisNumberPosition = instr$( j, expr, right$(str$( d(i)),1 ))
if ThisNumberPosition then GotaNumber = 1++
if ThisNumberPosition then GotaNumber = _true
next j
next j
if GotaNumber then TotalNumbers ++
if GotaNumber then TotalNumbers ++
next i
 
if TotalNumbers => 4 then GotAllNumbers = _true
 
if TotalNumbers = > 4 then GotAllNumbers = _true
 
 
if GotAllNumbers = _false
fn EraseErrorText
text ,,fn colorRed
TryAgain = _true
print %(10,200);"ERROR! Must use all your numbers and only those numbers." : goto "InputExpression"
text ,,fn colorWhite
end if
 
 
fn EraseErrorText
 
 
if fn EvaluateMath( fn StringWithPascalString (expr)) = _false
if fn EvaluateMath( expr ) = _false
text ,,fn colorRed
text ,,fn colorRed
TryAgain = _true
TryAgain = _true
Print %(10,200);"Error! Incorrect math sequence."
Print %(10,200);"Error! Incorrect math sequence."
goto "InputExpression"
goto "InputExpression"
text ,,fn colorWhite
text ,,fn colorWhite
end if
 
 
CFStringRef AnswerRef
AnswerRef = fn EvaluateMath( fn StringWithPascalString (expr))
CFStringRef GameResult
if fn StringIntegerValue( fn EvaluateMath( expr ) ) == 24 then GameResult = @"Correct" else GameResult = @"Incorrect"
str255 AnswerString
AnswerString = fn StringPascalString(AnswerRef)
 
if int(val(AnswerString)) = 24 then GameResult = @"Correct" else GameResult = @"Incorrect"
 
 
if GameResult = @"Incorrect"
TryAgain = _true
goto "InputExpression"
end if
 
fn QuitOrPlayAlert(GameResult)
goto "Main"
 
 
handleevents
Richlove
40

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/364420...364451"