17 lines
341 B
Racket
17 lines
341 B
Racket
#lang racket
|
|
|
|
(require "grammar.rkt"
|
|
redex/reduction-semantics)
|
|
|
|
(provide (all-defined-out))
|
|
|
|
(define-language any-L)
|
|
|
|
(define-metafunction any-L
|
|
[(count-up number)
|
|
,(build-list (term number) (λ (x) x))])
|
|
|
|
(define-metafunction any-L
|
|
concat : (any ...) ... -> (any ...)
|
|
[(concat any ...) ,(apply append (term (any ...)))])
|