From 562a9a52d599d9a05f871404050968a5fd282640 Mon Sep 17 00:00:00 2001 From: elioat Date: Wed, 23 Aug 2023 07:52:19 -0400 Subject: * --- js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.1/pigl.scm | 10 ++++++++++ 1 file changed, 10 insertions(+) create mode 100644 js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.1/pigl.scm (limited to 'js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.1/pigl.scm') diff --git a/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.1/pigl.scm b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.1/pigl.scm new file mode 100644 index 0000000..7957fc8 --- /dev/null +++ b/js/games/nluqo.github.io/~bh/61a-pages/Lectures/1.1/pigl.scm @@ -0,0 +1,10 @@ +(define (pigl wd) + (if (pl-done? wd) + (word wd 'ay) + (pigl (word (bf wd) (first wd))))) + +(define (pl-done? wd) + (vowel? (first wd))) + +(define (vowel? letter) + (member? letter '(a e i o u))) -- cgit 1.4.1-2-gfad0 age end-user programmingKartik K. Agaram <vc@akkartik.com>

about summary refs log tree commit diff stats

path: root/COPYRIGHT.md

blob: 357529f6b683fba23de8b3e0bf5fb6e379cd6bbe (plain) (blame)