Het is al een poosje terug dat ik tijd vond om een leuk artikeltje op dit blog te schrijven.
\nGelukkig is er nu weer een goede reden om even iets te posten.<\/p>\n
Namelijk de release 0.5.4 van Red.<\/strong><\/p>\n Red is een nieuwe programmeertaal. Al even in ontwikkeling, al sinds 2012, maar nu ligt een stevige basis waarop flink kan worden doorgebouwd.<\/p>\n En bovendien is Red nu al aardig bruikbaar voor kleine programma’s.<\/p>\n Binnenkort komt de eerste versie met GUI ondersteuning. Des te meer reden om eens kort te laten zien hoe makkelijk het programmeren met Red is.<\/p>\n Laten we een versie maken van een simpel raad-een-getal-onder-de-100 spel. We gaan een werkend programma maken en ondertussen maken we het nog iets fraaier, maar het kan altijd beter, het is ook om te laten zien wat er zoal kan.<\/p>\n Deze Nederlandstalige versie behandel ik uitgebreid de stappen die nodig zijn om je omgeving in te richten. Omdat alles op de officiele sites in het Engels wordt uitgelegd laat ik dit in de Engelse versie die ik ook zal plaatsen achterwege, maar om degenen die het Engels minder goed beheersen ook met Red kennis te laten maken vertel ik hier alles lekker uitgebreid.<\/p>\n Wat hebben we nodig?<\/strong><\/p>\n Allereerst een Rebol runtime (het Rebol programma) voor onze computer. Download de broncode van Red van de Github site Download ook het Red programma van de officiele site Ik ga er even vanuit dat je nu een paar mappen hebt:<\/p>\n Start het Red programma eens op. Red compileert nu het console programma voor je. Met dit console kun je allerlei HELP hulp opvragen. Probeer het gerust. Je kunt ook kleine sommetjes proberen bijvoorbeeld 12 * 12 of 4096 \/ 16<\/p>\n We maken nu een programmafile aan. Op de eerste regel komt te staan dat dit een Red programma is.<\/p>\n Tussen de blokhaken (of spekhaken ik gebruik vaak beide namen door elkaar) die je veel zult zien kun je allerlei informatie over je programma (of script) zetten.<\/p>\n Zoals je ziet wordt het bestand raden.red voorafgegaan door een procent teken “%”. Dit geeft in Red aan dat het om een bestand gaat en niet om een naam van een variabele of iets anders.<\/p>\n We willen straks aan de speler vragen om een getal in te vullen. Hoe doen we dat? We gebruiken de functie ASK. De puntjes en de slash geven aan dat we eerst vanuit dit programma een map omhoog in de mappenboom moeten stappen.<\/p>\n Wat moet het programma doen?<\/strong> We noemen het getal dat de computer kiest geheim-getal Stap 1 vertaalt dan naar<\/p>\n De rest van het programma schrijf ik nu even anders op Einde van het spel<\/p>\n Voor doe-totdat hebben we in Red de functie until. Until doet alles uit het blok dat er na komt totdat de voorwaarde op de laatste regel waar is geworden.<\/p>\n We kunnen help until doen in de Red console (red.exe op Windows computers)<\/p>\n Dus until wordt gevolgd door een block!. En een block! is niets meer of minder dan een blok code. En dat is weer alle code die binne een paar spekhaken staat. Oftewel until []. We schrijven nu onze code op.<\/p>\n We moeten dus bij gaan houden hoe vaak er geraden is en of het getal geraden is.<\/p>\n Als de speler wil stoppen willen we daar ook wel rekening mee houden, toch? Dit zegt de Red help any<\/p>\n ANY geeft dus al waar terug bij de eerste de beste voorwaarde die waar is.<\/p>\n We krijgen dus<\/p>\n Samen wordt dit dan<\/p>\n Het stukje is-het-getal-geraden? moeten we nog invullen. Als we alle stukjes invullen, krijgen we een aardig programma<\/p>\n Maar…. Hiervoor starten we de rebol-core op. En daar<\/p>\n en we compileren ons programma (hoe dit moet staat in het Engels uitgebreid hier: http:\/\/www.red-lang.org\/2015\/04\/053-faster-compilation-and-extended.html )<\/p>\n Als dit klaar is is er een programma gemaakt dat je kunt uitvoeren. In Windows moet je een cmd.exe (DOS schil) openen hierin ga je naar de map (mijnmap\/red) met het programma raden.exe<\/p>\n We testen eerst of het programma ook stopt als we stop typen. Okee dat gaat leuk. Nu gaan we nog eens testen en geven een getal in. Oeps! Een fout!<\/p>\n Alles dat we intypen is natuurlijk een string en geen getal. En als we “12” vergelijken met bijvoorbeeld 6, dan vergelijken we appels en peren. We moeten van onze invoer een getal maken. Gelukkig kan dat simpel met de functie LOAD.<\/p>\n en we testen of we nu ook echt een getal hebben met<\/p>\n Als dat zo is kunnen we verder.<\/p>\n Hoe maken we het programma beter?<\/strong> Als je het spelletje vaker speelt zul je merken dat het programma steeds het zelfde getal kiest. We moeten nog de random generator opschudden. Dat moet met de \/seed refinement van de random functie. Verder crasht het programma aan het einde als je al klaar bent. Ik heb dit al gemeld bij de ontwikkelaars, maar het wordt tzt vanzelf opgelost als Red officieel input\/output ondersteuning krijgt.<\/p>\n Deze laatste beide problemen zijn ook op te lossen door de C-library binding van Kaj de Vos te gebruiken, en speciaal hiervan de ANSI binding. Je kunt deze binding vinden http:\/\/red.esperconsultancy.nl\/Red-test\/dir?ci=tip Zet al je nieuwe binding files in een map met de naam bind<\/p>\n Nu vervang je de #include regel voor de volgende<\/p>\n en we bepalen de tijd in seconden met now\/precise die we dankzij de binding ook meteen hebben.<\/p>\n Voor de volledigheid het hele programma<\/strong><\/p>\n (Let niet te veel op de uitlijning, de inspringing hoort met tabs van 4 spaties te zijn)<\/p>\n Programmeren in je moerstaal<\/strong> Bedenk wel dat het over het algemeen een beter idee is om de originele functies te gebruiken. Andere programmeurs over de hele wereld gebruiken deze ook en kunnen je beter helpen want jouw eigen functienamen zijn alleen bij jou bekend. En je leert gelijk een beetje Engels \ud83d\ude42<\/p>\n Wat kan er nog meer met Red?<\/strong><\/p>\n Dat is een goede vraag. Mooi voor een volgend blogje.<\/p>\n Laat je het even weten als er nog dingen niet helemaal duidelijk zijn in dit artikel?<\/p>\n","protected":false},"excerpt":{"rendered":" Red Release 0.5.4 is uit en ik laat zien hoe je een klein programma maakt in deze interessante programmeertaal. Ik probeer het echt heel uitgebreid stap voor stap te vertellen zodat het ook voor startende programmeurs die het Engels ook nog niet beheersen te begrijpen valt. Continue reading
\nDownload daarom een rebol-core van de Rebol.com site
\nhttp:\/\/www.rebol.com\/download-core.html
\nen als je toch bezig bent ook gelijk een view versie van
\nhttp:\/\/www.rebol.com\/download-view.html
\nOm Red programma’s te compileren heb je aan de core versie genoeg.<\/p>\n
\nhttps:\/\/github.com\/red\/red
\nOnderaan in de rechter kolom staat een knop met de tekst “Download ZIP”
\nPak dit bestand uit naar de map waar je het wilt hebben.<\/p>\n
\nhttp:\/\/www.red-lang.org\/p\/download.html
\nAls het goed is zie je een grote rode knop waarin de link naar programma voor jouw besturingssysteem van je computer staat.
\nJe maakt in mijnmap ook een map met bijvoorbeeld de naam ‘project’ hierin kun je weer nieuwe mappen maken, voor elk programma dat je maakt eentje.<\/p>\n\r\n\/mijnmap\r\n rebol-core.exe \r\n rebol-view.exe\r\n red.exe\r\n\/mijnmap\/project\r\n\/mijnmap\/red\r\n<\/pre>\n
\nDat is gewoon een tekstbestand dat je met Notepad of Kladblok kunt openen.
\nHet bestand noemen we “raden.red” en we zetten het in de map mijnmap\/project\/raden\/<\/p>\nRed []<\/pre>\n
Red [\r\n file: %raden.red\r\n maker: \"ik\"\r\n omschrijving: {\r\n Dit programma kiest een getal van 1 tot en met 99 dat je moet raden.\r\n }\r\n]<\/pre>\n
\nASK is nog geen standaard functie binnen Red maar het console programma dat met red geleverd wordt maakt al wel gebruik hiervan.
\nWe moeten op dit moment dus even zelf de broncode voor deze functie aan ons programma meegeven. Gelukkig is dat heel makkelijk.<\/p>\nRed []\r\n#include %..\/..\/red\/environment\/console\/input.red<\/pre>\n
\n1. Een willekeurig geheel getal kiezen van 1 tot 99
\n2. Vragen om een getal
\n3. kijken of het het getal geraden is of dat het te raden getal groter of kleiner is.
\n4. Is het getal geraden of wil de speler stoppen of is er te vaak geprobeerd zonder het goede antwoord dan stoppen
\n5. Anders gaan we weer naar stap 2<\/p>\n
\nMet een dubbele punt na geheim-getal geven we aan dat de waarde van geheim-getal gevuld gaat worden met wat er achter volgt.
\nHet kiezen van een willekeurig getal gaat met de functie random, dat natuurlijk ook willekeurig betekent in het Engels.<\/p>\ngeheim-getal: random 99<\/pre>\n
\ndoe-totdat speler wil stoppen of te vaak geraden of goed geraden
\nvraag om een getal
\ntel een op bij het aantal keer raden
\nkijk of het getal is geraden
\nzo niet geef een aanwijzing, moet de speler hoger raden of juist lager?<\/p>\n--== Red 0.5.4 ==--\r\nType HELP for starting information.\r\n\r\nred>> help until\r\n\r\nUSAGE:\r\nuntil body\r\n\r\nDESCRIPTION:\r\nEvaluates body until it is true.\r\nuntil is of type: native!\r\n\r\nARGUMENTS:\r\nbody [block!]\r\n\r\nREFINEMENTS:<\/pre>\n
until [\r\n doe-hier-de-dingen-die-je-wilt-doen\r\n en-misschien-heb-je-daar-heel-wat-regels-voor-nodig\r\n\r\n totdat-deze-regel-waar-is\r\n]\r\n<\/pre>\n
aantal-keer-raden: 0\r\ngetal-geraden: false<\/pre>\n
\nDus er zijn 3 redenen waarom ons programma mag stoppen. Elke reden is op zichzelf genoeg reden om te stoppen.
\nWe hebben in Red een ANY functie die van meer dan 1 voorwaarden teruggeeft of er 1 of meer van waar zijn. Zet elke voorwaarde netjes op een regel.<\/p>\nred>> help any\r\n\r\nUSAGE:\r\nany conds\r\n\r\nDESCRIPTION:\r\nEvaluates, returning at the first that is true.\r\nany is of type: native!\r\n\r\nARGUMENTS:\r\nconds [block!]\r\n\r\nREFINEMENTS:<\/pre>\n
any [ aantal-keren-raden > 20\r\nantwoord = \"stop\"\r\ngetal-geraden ]<\/pre>\n
aantal-keer-raden: 0\r\ngetal-geraden: false\r\n\r\nuntil [ antwoord: ask \"Geef een getal (1 t\/m 99 of stop): \"\r\n aantal-keer-raden: aantal-keer-raden + 1\r\n\r\n is-het-getal-geraden?\r\n\r\n any [ aantal-keren-raden > 20\r\n antwoord = \"stop\"\r\n getal-geraden ]\r\n]<\/pre>\n
\nHet geheim-getal is dan gelijk aan het antwoord. Als dat zo is dan is antwoord-geraden.
\nNet als in andere talen heeft Red ook een IF
\nif geheim-getal = antwoord [getal-geraden: true]<\/p>\nRed [\r\n file: %raden.red\r\n maker: \"ik\"\r\n omschrijving: {\r\n Dit programma kiest een getal van 1 tot en met 99 dat je moet raden.\r\n }\r\n]\r\n\r\n#include %..\/..\/red\/environment\/console\/input.red\r\n\r\ngeheim-getal: random 99\r\n\r\naantal-keer-raden: 0\r\ngetal-geraden: false\r\nklaar: false\r\n\r\nuntil [ antwoord: ask \"Geef een getal (1 t\/m 99 of stop): \"\r\n aantal-keer-raden: aantal-keer-raden + 1\r\n\r\nif geheim-getal = antwoord [\r\n getal-geraden: true\r\n print [\"Hoera je hebt het getal geraden in\" aantal-keer-raden \"keer\"]\r\n]\r\n\r\nif geheim-getal < antwoord [ print [\"Het geheime getal is kleiner dan\" antwoord] ] if geheim-getal > antwoord [\r\n print [\"Het geheime getal is groter dan\" antwoord]\r\n]\r\n\r\nany [ aantal-keren-raden > 20\r\n antwoord = \"stop\"\r\n getal-geraden ]\r\n]\r\n<\/pre>\n
\nWe moeten het programma nog compileren!<\/p>\n
\nWe gaan met CD naar de map mijnmap\/red<\/p>\ncd red<\/pre>\n
do %red.r<\/pre>\n
rc \"-c ..\/project\/raden\/raden.red\"<\/pre>\n
raad-getal: load antwoord<\/pre>\n
integer? raad-getal<\/pre>\n
\nIn plaats van antwoord = “stop” maken we een vlag om te stoppen, we kunnen deze bijvoorbeeld “stoppen” noemen, maar “klaar” is ook een optie. Als we beginnen zijn we nog niet klaar, dus nemen we een regel op met
\nklaar: false
\nNu kunnen we de speler ook helpen door “s” en “stoppen” ook als “stop” op te vatten<\/p>\nif any [antwoord = \"s\"\r\n antwoord = \"stop\"\r\n antwoord = \"stoppen\"] [klaar: true]<\/pre>\n
\nrandom\/seed 9999
\nHet getal waarmee de seed wordt gedaan moet bij voorkeur zelf ook niet steeds gelijk zijn. De tijdstempel is hiervoor een goede optie. Helaas heeft Red nu nog geen tijd die opgevraagd kan worden.<\/p>\n
\nTIP! Je vindt hier ook voor allerlei Operating Systemen een Red programma met de bindingen er al in gebouwd.<\/strong>
\nJe moet ook nog even een fossil programma downloaden vanaf http:\/\/fossil-scm.org\/index.html\/doc\/trunk\/www\/index.wiki beter gezegd vanaf https:\/\/www.fossil-scm.org\/download.html
\nDat zet je in de map bij je rebol programma en vanuit de rebol console doe je dan
\ndo %download.r<\/p>\n#include %..\/bind\/C-library\/ANSI.red<\/pre>\n
tijd: remainder now\/precise 10000 ; is niet echt nodig maar ruim genoeg voor ons programma.\r\n\r\nrandom\/seed tijd\r\n<\/pre>\n
Red [\r\n file: %raden.red\r\n maker: \"ik\"\r\n omschrijving: {\r\n Dit programma kiest een getal van 1 tot en met 99 dat je moet raden.\r\n }\r\n]\r\n; commentaar is alles dat na een puntkomma komt, behalve als de puntkomma\r\n; in een tekst tussen aanhalingstekens staat.\r\n\r\n; Voeg de functies ASK en NOW toe met deze binding\r\n#include %..\/bind\/C-library\/ANSI.red\r\n\r\n; Beginwaarden instellen\r\ntijd: remainder now\/precise 10000\r\nrandom\/seed tijd\r\n\r\ngeheim-getal: random 99\r\nprint geheim-getal ; Dit moet je natuurlijk straks in commentaar veranderen!\r\n\r\naantal-keer-raden: 0\r\ngetal-geraden: false\r\nklaar?: false\r\n\r\nuntil [\r\n antwoord: ask \"Geef een getal (1 t\/m 99 of stop): \"\r\n if any [antwoord = \"s\"\r\n antwoord = \"S\"\r\n antwoord = \"stop\"\r\n antwoord = \"STOP\"\r\n antwoord = \"stoppen\"\r\n antwoord = \"STOPPEN\"][\r\n print \"Je wilt stoppen, dus tot de volgende keer!\"\r\n klaar?: true\r\n ]\r\n\r\n aantal-keer-raden: aantal-keer-raden + 1\r\n\r\n if not klaar? [\r\n raad-getal: load antwoord\r\n either integer! = type? raad-getal [\r\n\r\n if geheim-getal = raad-getal [\r\n getal-geraden: true\r\n klaar?: true\r\n print [\"Hoera je hebt het getal geraden in\" aantal-keer-raden \"keer\"]\r\n ]\r\n\r\n if not klaar? [\r\n if aantal-keer-raden > 19 [\r\n klaar?: true\r\n print [\"Sorry. Je hebt 20 keer geraden, het getal was\" geheim-getal]\r\n ]\r\n ]\r\n\r\n if not klaar? [\r\n if geheim-getal < raad-getal [\r\n print [\"Het geheime getal is kleiner dan\" raad-getal]\r\n ]\r\n\r\n if geheim-getal > raad-getal [\r\n print [\"Het geheime getal is groter dan\" raad-getal]\r\n ]\r\n ]\r\n ][\r\n either aantal-keer-raden > 19 [\r\n klaar?: true\r\n print [\"Sorry. Je hebt 20 keer geraden, het getal was\" geheim-getal]\r\n ][\r\n print \"Dat snapte ik niet helemaal, probeer het nog eens.\"\r\n ]\r\n ]\r\n ]\r\n\r\n klaar?\r\n]\r\n\r\n; einde programma\r\nprint \"Tot ziens!\"\r\n<\/pre>\n
\nWil je nou liever in het Nederlands programmeren, dan kun je makkelijk je eigen functienaam geven aan de functies in Red. Als je liever VRAAG gebruikt dan ASK dan neem je een regel op met
\nvraag: :ask
\nDit zegt dat je VRAAG gelijk maakt aan ASK.<\/p>\n