CS3700-project2/router.rkt

17 lines
288 B
Racket

#lang racket
;; Str [Listof Str] ->
;; Router main
(define (run-router asn ip-addrs)
(displayln asn)
(map displayln ip-addrs)
(void))
(module+ main
(command-line
#:program "router"
#:args
(asn . ip-addrs)
;; Run the router
(run-router asn ip-addrs)))