Racket: Case
Вместо switch в Racket ипользуется case. В общем случае case по своим возможностям шире, чем switch в большинстве языков программирования. Его использование в качестве switch — это наиболее простой способ познакомиться с ним.
(let ([v 0])
(case v
[(0) "zero"]
[(1) "one"]
[(2) "two"]
[(3 4 5) "many"]))
; "zero"Каждая ветка в case описывается квадратными скобками, где в левой части — список из одного или нескольких элементов. Эти элементы и есть ожидаемые значения. В правой части ветки находится возвращаемое значение.
Для поведения по умолчанию в самом конце используется часть else:
(case 6
[(0) "zero"]
[(1) "one"]
[(2) "two"]
[else "many"])
; "many"Задание
Реализуйте функцию humanize-permission, которая принимает на вход символьное обозначение прав доступа в Unix-системах и возвращает текстовое описание.
(humanize-permission "x") ; "execute"
(humanize-permission "r") ; "read"
(humanize-permission "w") ; "write"Racket: Case
Вместо switch в Racket ипользуется case. В общем случае case по своим возможностям шире, чем switch в большинстве языков программирования. Его использование в качестве switch — это наиболее простой способ познакомиться с ним.
(let ([v 0])
(case v
[(0) "zero"]
[(1) "one"]
[(2) "two"]
[(3 4 5) "many"]))
; "zero"Каждая ветка в case описывается квадратными скобками, где в левой части — список из одного или нескольких элементов. Эти элементы и есть ожидаемые значения. В правой части ветки находится возвращаемое значение.
Для поведения по умолчанию в самом конце используется часть else:
(case 6
[(0) "zero"]
[(1) "one"]
[(2) "two"]
[else "many"])
; "many"Задание
Реализуйте функцию humanize-permission, которая принимает на вход символьное обозначение прав доступа в Unix-системах и возвращает текстовое описание.
(humanize-permission "x") ; "execute"
(humanize-permission "r") ; "read"
(humanize-permission "w") ; "write"Ваше упражнение проверяется по этим тестам
#lang racket
(require (only-in rackunit check-equal? test-begin ))
(require "index.rkt")
(test-begin
(check-equal? (humanize-permission "r") "read")
(check-equal? (humanize-permission "w") "write")
(check-equal? (humanize-permission "x") "execute"))Решение учителя откроется через:
20:00
