aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

46
Task/Guess-the-number/AppleScript/guess-the-number-1.applescript
View file

@ -1,25 +1,25 @@
on run
-- define the number to be guessed
set numberToGuess to (random number from 1 to 10)
-- prepare a variable to store the user's answer
set guessedNumber to missing value
-- start a loop (will be exited by using "exit repeat" after a correct guess)
repeat
try
-- ask the user for his/her guess
set usersChoice to (text returned of (display dialog "Guess the number between 1 and 10 inclusive" default answer "" buttons {"Check"} default button "Check"))
-- try to convert the given answer to an integer
set guessedNumber to usersChoice as integer
on error
-- something gone wrong, overwrite user's answer with a non-matching value
set guessedNumber to missing value
end try
-- decide if the user's answer was the right one
if guessedNumber is equal to numberToGuess then
-- the user guessed the correct number and gets informed
display dialog "Well guessed! The number was " & numberToGuess buttons {"OK"} default button "OK"
-- exit the loop (quits this application)
exit repeat
end if
end repeat
-- define the number to be guessed
set numberToGuess to (random number from 1 to 10)
-- prepare a variable to store the user's answer
set guessedNumber to missing value
-- start a loop (will be exited by using "exit repeat" after a correct guess)
repeat
try
-- ask the user for his/her guess
set usersChoice to (text returned of (display dialog "Guess the number between 1 and 10 inclusive" default answer "" buttons {"Check"} default button "Check"))
-- try to convert the given answer to an integer
set guessedNumber to usersChoice as integer
on error
-- something gone wrong, overwrite user's answer with a non-matching value
set guessedNumber to missing value
end try
-- decide if the user's answer was the right one
if guessedNumber is equal to numberToGuess then
-- the user guessed the correct number and gets informed
display dialog "Well guessed! The number was " & numberToGuess buttons {"OK"} default button "OK"
-- exit the loop (quits this application)
exit repeat
end if
end repeat
end run

51
Task/Guess-the-number/AppleScript/guess-the-number-2.applescript
View file

@ -1,9 +1,11 @@
-- GUESS THE NUMBER ----------------------------------------------------------
on run
-- isMatch :: Int -> Bool
script isMatch
on lambda(x)
on |λ|(x)
tell x to its guess = its secret
end lambda
end |λ|
end script
-- challenge :: () -> {secret: Int, guess: Int}
@ -21,14 +23,14 @@ on run
end if
end response
on lambda(rec)
on |λ|(rec)
{secret:(random number from 1 to 10), guess:response() ¬
of challenge, attempts:(attempts of rec) + 1}
end lambda
end |λ|
end script
-- MAIN LOOP
-- MAIN LOOP -------------------------------------------------------------
set rec to |until|(isMatch, challenge, {secret:-1, guess:0, attempts:0})
display dialog (((guess of rec) as string) & ": Well guessed ! " & ¬
@ -36,29 +38,7 @@ on run
end run
-- GENERIC LBRARY FUNCTIONS
-- until :: (a -> Bool) -> (a -> a) -> a -> a
on |until|(p, f, x)
set mp to mReturn(p)
set mf to mReturn(f)
script
property p : mp's lambda
property f : mf's lambda
on lambda(v)
repeat until p(v)
set v to f(v)
end repeat
return v
end lambda
end script
result's lambda(x)
end |until|
-- GENERIC FUNCTIONS ---------------------------------------------------------
-- isInteger :: a -> Bool
on isInteger(e)
@ -77,7 +57,20 @@ on mReturn(f)
f
else
script
property lambda : f
property |λ| : f
end script
end if
end mReturn
-- until :: (a -> Bool) -> (a -> a) -> a -> a
on |until|(p, f, x)
set mp to mReturn(p)
set v to x
tell mReturn(f)
repeat until mp's |λ|(v)
set v to |λ|(v)
end repeat
end tell
return v
end |until|