пятница, 7 октября 2016 г.

#1280. "А ваш язык так может?" №2



INTEGER VAR X
X := Random ( 0 10 )

STRING VAR String
String := 'Hello'

ANY VAR Value

Value :=
 RULES
  ( X .equal 1 )
   10
  ( X .equal 2 )
   100
  ( X .equal 3 )
   1024
  ( X .equal 4 )
   2048
  ( String .not .equal 'Hello' )
   'not hello'
  Default
   ( String .cutPrefix 'H' )
 ; // RULES

Value .print

Комментариев нет:

Отправить комментарий