Cool Code

From Sch3m3rs Stuph

Revision as of 19:52, 23 March 2008 (view source) Admin (Talk | contribs) ← Previous diff		Current revision as of 19:53, 23 March 2008 (view source) Admin (Talk | contribs)
Line 38:		Line 38:
	Returns:		Returns:
-	Mary had a little lamb,	+	Mary had a little lamb,
-		+	Its fleece was white as snow;
-	Its fleece was white as snow;	+	And everywhere that Mary went,
-		+	The lamb was sure to go.
-	And everywhere that Mary went,	+	He followed her to school one day;
-		+	That was against the rule;
-	The lamb was sure to go.	+	It made the children laugh and play;
-		+	To see a lamb at school.
-	He followed her to school one day;	+	And so the teacher turned it out,
-		+	But still it lingered near,
-	That was against the rule;	+	And waited patiently about
-		+	Till Mary did appear.
-	It made the children laugh and play;	+	Why does the lamb love Mary so?
-		+	The eager children cry;
-	To see a lamb at school.	+	Why, Mary loves the lamb, you know,
-		+	The teacher did reply.
-	And so the teacher turned it out,	+
-		+
-	But still it lingered near,	+
-		+
-	And waited patiently about	+
-		+
-	Till Mary did appear.	+
-		+
-	Why does the lamb love Mary so?	+
-		+
-	The eager children cry;	+
-		+
-	Why, Mary loves the lamb, you know,	+
-		+
-	The teacher did reply.	+
	----		----

---

Current revision as of 19:53, 23 March 2008

This page is for interesting bits and bobbles of coding:

Format is:

        Name for code
        Code
        What it does

---

Display List W/ line-breaks

 (define (displayx x)
   (begin
     (display x)
     (newline)))

  (define (for-each-disp a-list) 
    (for-each displayx a-list))

When given a list it takes each item displays it in the interactions window with each piece separated with a line break.

For Example When given the definition

   (define MARY (list "Mary had a little lamb," "Its fleece was white as snow;"
    "And everywhere that Mary went," "The lamb was sure to go."
    "He followed her to school one day;" "That was against the rule;"
    "It made the children laugh and play;" "To see a lamb at school."
    "And so the teacher turned it out,"
    "But still it lingered near," "And waited patiently about"
    "Till Mary did appear." "Why does the lamb love Mary so?"
    "The eager children cry;" "Why, Mary loves the lamb, you know," "The teacher did reply."))

The function:

   (for-each-disp MARY)

Returns:

   Mary had a little lamb,
   Its fleece was white as snow;
   And everywhere that Mary went,
   The lamb was sure to go.
   He followed her to school one day;
   That was against the rule;
   It made the children laugh and play;
   To see a lamb at school.
   And so the teacher turned it out,
   But still it lingered near,
   And waited patiently about
   Till Mary did appear.
   Why does the lamb love Mary so?
   The eager children cry;
   Why, Mary loves the lamb, you know,
   The teacher did reply.

---

List Pick Random

   (define (list-pick-random ls)
     (list-ref ls (random (length ls))))

When Given a list it randomly picks one of the items contained in the list.

---