(This article was largely automatically translated)
\nIt’s been a little while ago I found time to write a nice article on this blog.
\nFortunately, there’s another good reason to get something to post.<\/p>\n
Namely the 0.5.4 release of Red.<\/strong><\/p>\n Red is a new programming language. Only in development since 2012, but now has a firm foundation on which can be built considerably.<\/p>\n And besides Red already is pretty useful for small programs.<\/p>\n Soon the first version with GUI support. All the more reason to take a brief look at how easy it is to program with Red.<\/p>\n Let’s make a version of a simple board-a-number-under-the-100 game. We will create a working program and meanwhile we make it a little nicer, but it can always be better, it is also to show what it can do.<\/p>\n This English version I treat extensively the steps needed to set up your environment. Because everything on the official sites in English explaining I leave this in the English version I will put omitted, but to those who make less good English too controlling with Red knowledge tell me extensively all delicious.<\/p>\n What do we need?<\/strong><\/p>\n First, a Rebol runtime (the Rebol program) for our computer. Download the source code for the Red Github site Also download the Red program from the official site I’m going to just assume that you now have a few folders:<\/p>\n Start the program once on Red. Red now compiles the console program for you. With this console, you can retrieve all kinds HELP for help. Try it with confidence. You can also try small sums such as 12 * 12 or 4096\/16<\/p>\n Let’s create a program file.<\/strong> On the first line is established that this is a program Red.<\/p>\n Between putting the brackets (or bacon hooks I often use both names interchangeably) that you will see many kinds of information you can about your program (or script).<\/p>\n As you can see, the file is guess.red preceded by a percent sign “%”. This tells Red that it is a file, not a name of a variable or something else.<\/p>\n We want to be able to ask the player to fill in a number. How do we do that? We use the ASK mode. The dots and the slash indicate that we first from this program up a folder in the folder tree should steps.<\/p>\n What should the program? We call the number that the computer chooses secret-number The rest of the program now as I write differently End of game<\/p>\n For do-until we have at Red until the function. Until does everything from the block until the condition comes after the last line has come true.<\/p>\n We can help do until the Red Console (red.exe on Windows computers)<\/p>\n >> help save until<\/p>\n USAGE: DESCRIPTION: ARGUMENTS: Refinements:<\/p>\n So until is followed by a block !. And a block! is nothing more or less than a block code. And that’s all the code inside a pair of square brackets state. Ie until []. We write our code.<\/p>\n So we have to keep going and how many guesses were made.<\/p>\n If the player wants to quit, we want to also keep in mind that, right? Consulting the Red help for ANY<\/p>\n So ANY displays true on the very first condition met that is true and false otherwise.<\/p>\n We get now Together, this will become<\/p>\n The piece is-the-number-guessed? We still have to fill. As you probably know from other languages there is often the possibility to do something if the test is not true. They use ELSE. It may seem weird at first but Red does not have IF THEN ELSE. So we fill in all the pieces, we get a nice program<\/p>\n But …. To do that we start rebol core now. And there<\/p>\n and we compile our program (how it must be done in English extensively here: http:\/\/www.red-lang.org\/2015\/04\/053-faster-compilation-and-extended.html)<\/p>\n When this is done, there is a program made so that you can perform. In Windows you must open a cmd.exe (DOS shell) herein, go to the folder (myfolder \/ red) with the program guess.exe<\/p>\n We test to see if the program stops when we stop typing. Okay it’s fun. Now we will test again and give a number. Oops! An error!<\/p>\n Everything we type is obviously a string and not a number. And if we “12” compared, for example 6, we compare apples and pears. We must make a number of our imports. Fortunately, it can be simple with the LOAD function. How do we make the program better? Now we can also help the player “s” and “Stop” also known as “stop” to conceive<\/p>\n If you play the game often you will find that the program always chooses the same number. We still have the random generator shake. That must be with the \/ seed refinement of the random function.<\/p>\n The number by which the seed is made should preferably themselves not always be the same. The time stamp for this is a good option. Unfortunately, Red still has no time can be retrieved.<\/p>\n Furthermore, the program crashes at the end when you’re ready. I’ve already reported to the developers, but it will in due course solve itself as official Red input \/ output supported.<\/p>\n The latter two problems are solved by using the C-library binding by Kaj de Vos, and especially the ANSI bind. Put all your new binding files in a folder named bind within the folder Mymap.<\/p>\n Now you replace the #include line for the next<\/p>\n and we determine the time in seconds with now \/ precise we have immediately thanks to the bond.<\/p>\n time: remainder now\/precise 10000; is not really necessary but roomy enough for our program.<\/p>\n For completeness, the whole program<\/p>\n (Do not pay attention to the alignment, indentation should be tabbed with 4 spaces)<\/p>\n There is plenty left to add for testing input being larger than 0 and smaller than 100 and add smart responses for jokers answers like pi, or written out numbers. <\/p>\n I hope I helped you a little to get you started with Red.<\/p>\n","protected":false},"excerpt":{"rendered":" (This article was largely automatically translated) It’s been a little while ago I found time to write a nice article on this blog. Fortunately, there’s another good reason to get something to post. Namely the 0.5.4 release of Red. Red … Continue reading
\nPlease download a rebol core of the site Rebol.com
\nhttp:\/\/www.rebol.com\/download-core.html<\/a>
\nand if you’re at a view also similar version
\nhttp:\/\/www.rebol.com\/download-view.html<\/a>
\nRed to compile programs you have enough core version.<\/p>\n
\nhttps:\/\/github.com\/red\/red<\/a>
\nAt the bottom of the right column is a button that says “Download ZIP”
\nUnzip this file to the folder where you want it.<\/p>\n
\nhttp:\/\/www.red-lang.org\/p\/download.html<\/a>
\nIf all is well you will see a big red button that links to the program for your operating system of your computer is.
\nYou make myfolder in a folder, for example, the name “project” herein can again create new folders for each program that you make one.<\/p>\n\/Mydir\r\n\trebol-core.exe\r\n\trebol-view.exe\r\n\tred.exe\r\n\/Mydir\/project\r\n\/Mydir\/red<\/pre>\n
\nThat’s just a text file that can be opened with Notepad or Notepad.
\nThe file is called “guess.red” and we put it in the folder myfolder\/project\/guess\/<\/p>\nRed []<\/pre>\n
\r\nRed [\r\n\tfile: %guess.red\r\n\tAuthor: \"I\"\r\n\tDescription: {\r\n\t\tThis program selects a number from 1 to 99, you have to guess.\r\n\t}\r\n]\r\n<\/pre>\n
\nASK is still not a standard feature in Red but the console program that comes with red makes already use.
\nWe need at this time so here itself the source code for this function to give to our program. Fortunately, this is easy.<\/p>\n\r\nRed []\r\n#include %..\/..\/red\/environment\/console\/input.red\r\n<\/pre>\n
\n1. Choose a random integer from 1 to 99
\n2. Ask for a number
\n3. see if the number is guessed, or it is advisable number is larger or smaller.
\n4. If the number is guessed or the player wants to stop or attempting to stop often than not the right answer
\n5. Otherwise, we go to step 2<\/p>\n
\nWith a colon after secret-number we indicate that the value of secrecy number will be filled with what haunts.
\nChoosing a random number is the random function, which of course also arbitrary means in English.<\/p>\n\r\nStep 1 then translates to\r\nSecret Number: random 99\r\n<\/pre>\n
\nDIY until player wants to stop or often guessed or guessed
\nask for a number
\ncount on a guess at the number of times
\ncheck if the number is guessed
\nif not give a clue, the player has to guess higher or lower?<\/p>\n- Red == 0.5.4 == -\r\nType HELP for starting information.<\/pre>\n
\nuntil body<\/p>\n
\nEvaluates body until it is true.
\nuntil or type: Native!<\/p>\n
\nbody [block!]<\/p>\nuntil [\r\n do-here-the-things-you-want-to-do\r\n and-perhaps-have-you-there-very-few-rules-for-needed\r\n until-the-line-where-is\r\n]<\/pre>\n
\r\ntimes-guessed: 0\r\nnumber-guessed false\r\n<\/pre>\n
\nSo there are 3 reasons why our program to stop. Every reason in itself is enough reason to stop.
\nWe have a Red ANY function of more than 1 conditions return or 1 or more true. Put each condition in a neat line.<\/p>\n\r\nred>> help any\r\n\r\nUSAGE:\r\n any conds\r\n\r\nDESCRIPTION:\r\n Evaluates, returning at the first that is true.\r\n any is of type: native!\r\n\r\nARGUMENTS:\r\n conds [block!]\r\n\r\nREFINEMENTS:\r\n<\/pre>\n
\nany [times-guessed > 20
\n\tresponse = “stop”
\n\tnumber-guessed
\n]<\/p>\n\r\ntimes-guessed: 0\r\nnumber-guessed: false\r\n\r\nuntil [\r\n response: ask \"Give a number (from 1 up to 99 or stop):\"\r\n times-guessed: times-guessed + 1\r\n\r\n is-the-number-guessed?\r\n\r\n any [times-guessed > 20\r\n\t\tresponse = \"stop\"\r\n\t\tnumber-guessed\r\n\t]\r\n]\r\n<\/pre>\n
\nThe secret number is then equal to the answer. If so then answer guessed.
\nAs in other languages Red also has an IF
\nif secret number = response [number-guessed: true]<\/p>\n
\nWe use EITHER followed by two blocks of code. Don’t come in and ask for IF THEN ELSE because when you get more accustomed to EITHER you will notice having this difference makes your code better readable.<\/p>\nRed [\r\n\tfile: %guess.red\r\n\tAuthor: \"I\"\r\n\tDescription: {\r\n\t\tThis program selects a number from 1 to 99, you have to guess.\r\n\t}\r\n]\r\n\r\n#include %..\/..\/red\/environment\/console\/input.red\r\n\r\nsecret-number: random 99\r\n\r\ntimes-guessed: 0\r\nnumber-guessed: false\r\nready: false\r\n\r\nuntil [\r\n\tresponse: ask \"Give a number (from 1 up to 99 or stop):\"\r\n\ttimes-guessed: times-guessed + 1\r\n\t\r\n\tif secret-number = response [\r\n\t\tnumber-guessed: true\r\n\t\tprint [\"Hooray you have guessed the number in\" times-guessed \"times\"]\r\n\t]\r\n\t\r\n\tif secret-number < response [ \r\n\t\tprint [\"The secret number is less than\" answer] \r\n\t] \r\n\tif secret-number > response [\r\n\t\tprint [\"The secret number is greater than\" answer]\r\n\t]\r\n\t\r\n\tany [times-guessed > 20\r\n\t\tanswer = \"stop\"\r\n\t\tnumber-guessed]\r\n\t]\r\n<\/pre>\n
\nWe still have to compile the program!<\/p>\n
\nWe go to the directory mydir with CD \/ red<\/p>\ncd red<\/pre>\n
do red.r%<\/pre>\n
rc \"-c ..\/project\/guess\/guess.red\"<\/pre>\n
\nBoard Number: load response
\nand we test whether we actually have a number of
\ninteger? guess-number
\nIf so we can continue.<\/p>\n
\nRather than answer = “stop” we do to stop a flag, we can call this example “stop” but “ready” is also an option. When we start we are not ready yet, so we take a line with<\/p>\nready?: false<\/pre>\n
if any [answer = \"s\"\r\n\tanswer = \"stop\"\r\n\tanswer = \"stop\"] [\r\n\tready?: true\r\n]\r\n<\/pre>\n
random\/seed 9999<\/pre>\n
\nYou can find these binding http:\/\/red.esperconsultancy.nl\/Red-test\/dir?ci=tip
\nTip!: this site contains Red distributions for all kinds of OS’es complete with the bindings!<\/strong>
\nYou have to download a fossil program from the fossil site fossil http:\/\/fossil-scm.org\/index.html\/doc\/trunk\/www\/index.wiki or rather from https:\/\/www.fossil-scm.org\/download.html
\nYou put it in the folder with your rebol program and from the console rebol you<\/p>\ndo download.r%<\/pre>\n
#include %..\/bind\/C-library\/ANSI.red<\/pre>\n
random\/seed time<\/pre>\n
\r\nRed [\r\n\tfile: %guess.red\r\n\tAuthor: \"I\"\r\n\tDescription: {\r\n\t\tThis program selects a number from 1 to 99, you have to guess.\r\n\t}\r\n]\r\n; A comment is all that comes after a semicolon, unless the semicolon\r\n; is in a text in quotes.\r\n\r\n; Add the functions ASK NOW and increases with this binding\r\n#include %..\/bind\/C-library\/ANSI.red\r\n\r\n; Set Reset\r\ntime: remainder now\/precise 10000\r\nrandom\/seed time\r\n\r\nsecret-number: random 99\r\nprint secret-number; This you must change later into a comment!\r\n\r\ntimes-guessed: 0\r\nready?: false\r\n\r\nuntil [\r\n\tresponse: ask \"Give a number (from 1 up to 99 or stop):\"\r\n\tif any [response = \"s\"\r\n\t\tresponse = \"S\"\r\n\t\tresponse = \"stop\"\r\n\t\tresponse = \"STOP\"\r\n\t\tresponse = \"stop\"\r\n\t\tresponse = \"STOP\"] [\r\n\t\tprint \"You want to stop, so until next time!\"\r\n\t\tready?: true\r\n\t]\r\n\t\r\n\ttimes-guessed: times-guessed + 1\r\n\t\r\n\tif not ready? [\r\n\t\tguess-number: load response\r\n\t\teither integer! = type? guess-number [\r\n\t\t\r\n\t\t\tif secret number = guess-number [\r\n\t\t\t\tready?: true\r\n\t\t\t\tprint [\"Hooray! You have guessed the number in\" times-guessed \"times\"]\r\n\t\t\t]\r\n\t\t\t\r\n\t\t\tif not ready? [\r\n\t\t\t\tif times-guessed > 19 [\r\n\t\t\t\t\tready?: true\r\n\t\t\t\t\tprint [\"Sorry. You've guessed 20 times, the number was\" secret-number]\r\n\t\t\t\t]\r\n\t\t\t]\r\n\t\r\n\t\t\tif not ready? [\r\n\t\t\t\tif secret-number < guess-numberr [ \r\n\t\t\t\t\tprint [\"The secret number is less than\" guess-number] \r\n\t\t\t\t] \r\n\t\t\t\tif secret-number > guess-number [\r\n\t\t\t\t\tprint [\"The secret number is greater than\" guess-number]\r\n\t\t\t\t]\r\n\t\t\t]\r\n\t\t] [\r\n\t\t\teither times-guessed > 19 [\r\n\t\t\t\tready?: true\r\n\t\t\t\tprint [\"Sorry. You've guessed 20 times, the number was\" secret-number]\r\n\t\t\t] [\r\n\t\t\t\tprint \"I did not understand you, try again please.\"\r\n\t\t\t]\r\n\t\t]\r\n\t]\r\n\t\r\n\tReady?\r\n]\r\n\r\n; end of program\r\nprint \"Goodbye!\"\r\n<\/pre>\n