Sublists in Scheme/Racket

/prog/

What am I doing wrong here?

I'm supposed to make a Scheme/Racket function named "sublist?" that takes 2 lists of numbers. It is supposed to produce true if list1 is a sublist of list2 (in other words, list 2 contains list1) and false if its otherwise.

But this shit ain't working...

 (define (sublist? l1 l2)
  (cond ((null? l2) #t)
        ((not (exists l1 (car l2))) #f)
        (else (sublist? l1 (cdr l2)))))
 
 (define (exists l p)
  (if (null? l) #f
      (or (equal? p (car l)) (exists (cdr l) p))))

use newLISP.

newLISP:


(define (sublist? l1 l2) (= (union l1 l2) l2))

Where's your god now?

You swapped l1 and l2.

>>3
works if the input list are all sorted. an improvement:

(define (sublist? l1 l2) (= (sort (union l1 l2)) (sort l2)))

Done. back to fucking Touhous.

>>5
forgot to mention, error checking for empty lists is left as an exercise for >>1-kun

>>2
>>3
>>5
Unfortunately, I cannot use newLISP.

>>5
Terrible_!

>>7
Is that you, Ahmed?

>>9
Who the fuck is Ahmed?

>>10
This is Akhmed: http://www.turkcealtyazi.org/film/nmbig/nm0326656.jpg

>>11
He looks cool. I'd go for a coffee with him.

>>10
The guy who never optimizes his quotes and spreads lies about the Jewish people.

>>13
Ahmed is a computer science genius, born in some obscure caucasian republic of the Russian Federation. He became familiar with the work of Konrad Zuse at the age of 8, when he found a bunch of papers that were stolen in the rampaging of Berlin by his grandfather, Murat.

Self-taught, ignorant of (and aggressively opposed to) mathematical abstractions, his incredible talent wasn't left unnoticed and Ahmed was offered a job at the Russian Supercomputer Center of Atomic Weapon.

His vivid antisemitism got him fired in 2002 when a partnership with the Israeli Supercomputer Center of Atomic Weapon was signed.

Retired early, living of social welfare, Ahmed now dedicates himself to Symta, the revolutionary language he created.

>>14
Now it all makes sense.

Ahmed now dedicates himself to Symta, the revolutionary language he created.
and that sandnigger won't document his allah ackbar salami boom mystical ``programming language''

is every element of l1 in l2?

(define subset?
  (lambda (l1 l2)
    (foldr (lambda (t b) (and b (member? t l2))) #t l1)))

i'll let you figure out member? on your own

Bump.

>>16

You remind me of the jews poster more and more everyday. The same use of quotations for mocking. Character assassination. Trying to find out details for a character to assassinate when the character is presented from behind the murks of an anonymous bbs. And ironically, you show the same bigotry as well. I'm reminded of neo and agent smith from the matrix.

>>19
Ahmed is Goldberg, Goldberg is Ahmed.

SEX PRESS ION

>>14
Ahmed is welcome to join our scientists at the Iranian Supercomputer Center for Atomic Weapon.
Unless he's afraid of Tsahal hitmen, of course.

Bump.