Scheme

ahoj borci... neviete dakto pomoct?
chcem aby to vyhadzovalo vzdy dalsi mesiac teda januar - februar
februar- marec atd..... ale pri (check-expect) vypisuje error
(match: no matching clause for (make-unexpected-error ...))

(define-struct 1date(day months year))
(define years1 (make-1date 13 "januar" 2003))
(define years2 (make-1date 13 "februar" 2003))

(define (nextMonth 1date)
(make-1date
(1date-day 1date)
(1date-year 1date)
(cond
['januar "februar"]
['februar "marc"]
['marc "april"]
['april "maj"]
['maj "jun"]
['jun "jull"]
['jull "august"]
['august "september"]
['september "oktober"]
['oktober "november"]
['november "december"]
[else "januar"])))
(check-expect (nextMonth years1) years2)

Tak toto je úžasná téma

Myslím, že každého by zaujímalo o aký jazyk sa jedná a tiež nechápem čo to robí v tejto kategórií

PLT Scheme is an innovative programming language that builds on a rich academic and practical tradition.

proste pri******* jazyk ku ktoremu nenajdes forum,podporu proste nic! v prdrbanom starom programe.... ktory vyhadzuje same errory... a ked to napises od znovu tak to zrazu ide