diff --git a/data/scenarios/Challenges/00-ORDER.txt b/data/scenarios/Challenges/00-ORDER.txt index f3cb5c7c5..c538cb710 100644 --- a/data/scenarios/Challenges/00-ORDER.txt +++ b/data/scenarios/Challenges/00-ORDER.txt @@ -11,6 +11,7 @@ hanoi.yaml hackman.yaml lights-out.yaml bucket-brigade.yaml +wave.yaml wolf-goat-cabbage.yaml blender.yaml friend.yaml diff --git a/data/scenarios/Challenges/_wave/solution.sw b/data/scenarios/Challenges/_wave/solution.sw new file mode 100644 index 000000000..3907a8804 --- /dev/null +++ b/data/scenarios/Challenges/_wave/solution.sw @@ -0,0 +1,15 @@ +def go = + move; + go; + end; + +def start = + turn right; + wait 5; + try { + go; + } {}; + grab; + end; + +start; \ No newline at end of file diff --git a/data/scenarios/Challenges/wave.yaml b/data/scenarios/Challenges/wave.yaml new file mode 100644 index 000000000..d2cf80914 --- /dev/null +++ b/data/scenarios/Challenges/wave.yaml @@ -0,0 +1,89 @@ +version: 1 +name: Wave +author: Karl Ostmo +description: | + Ride the wave +creative: false +objectives: + - goal: + - | + Grab the `bitcoin`{=entity} at the east end of the path. + Don't let the patrolling robots catch you! + prerequisite: + not: got_caught + condition: | + as base {has "bitcoin"}; + - id: got_caught + teaser: Got caught + optional: true + hidden: true + goal: + - | + The robots caught you! + condition: | + as base {x <- meet; return $ case x (\_. false) (\_. true)}; +robots: + - name: base + dir: [0, 1] + devices: + - branch predictor + - comparator + - dictionary + - grabber + - hourglass + - clock + - lambda + - logger + - net + - scanner + - strange loop + - treads + - name: wavebot + system: true + dir: [0, 1] + display: + invisible: false + attr: 'plant' + program: | + def crossPath = + move; move; move; move; move; move; + turn back; + wait 5; + end; + def go = + crossPath; + go; + end; + def start = + pos <- whereami; + wait $ fst pos; + go; + end; + start; +solution: | + run "scenarios/Challenges/_wave/solution.sw" +entities: [] +known: [wavy water, water, bitcoin] +world: + dsl: | + overlay + [ {dirt, water} + , if (x + y / 2) % 5 == 0 then {dirt, wavy water} else {blank} + ] + upperleft: [-3, 6] + offset: false + palette: + 'B': [grass, erase, base] + 'w': [grass, erase, wavebot] + 'x': [dirt, water] + 'z': [grass, bitcoin] + '.': [grass, erase] + map: | + xxxxxx..................................................................................................................................................................................................................................................xxxxxx + xxx........................................................................................................................................................................................................................................................xxx + x............................................................................................................................................................................................................................................................x + B............................................................................................................................................................................................................................................................z + x............................................................................................................................................................................................................................................................x + xxx........................................................................................................................................................................................................................................................xxx + xxxxxxwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwxxxxxx + \ No newline at end of file diff --git a/test/integration/Main.hs b/test/integration/Main.hs index 572c94bfd..5993b547a 100644 --- a/test/integration/Main.hs +++ b/test/integration/Main.hs @@ -216,6 +216,7 @@ testScenarioSolutions rs ui = , testSolution (Sec 3) "Challenges/word-search" , testSolution (Sec 10) "Challenges/bridge-building" , testSolution (Sec 5) "Challenges/ice-cream" + , testSolution (Sec 15) "Challenges/wave" , testSolution (Sec 3) "Challenges/arbitrage" , testSolution (Sec 10) "Challenges/gopher" , testSolution (Sec 5) "Challenges/hackman"