mirror of
https://github.com/KevinMidboe/linguist.git
synced 2025-10-29 17:50:22 +00:00
Merged with upstream. Updated M (aka MUMPS) detection to use the new bayesian / samples method.
This commit is contained in:
22
samples/M/indirectfunctions.m
Normal file
22
samples/M/indirectfunctions.m
Normal file
@@ -0,0 +1,22 @@
|
||||
start ; exercise
|
||||
set ^car("make")="toyota"
|
||||
set ^car("model")="corolla"
|
||||
set ^car("mileage")="$$compute^mileage"
|
||||
|
||||
write !,"Regular computation",!
|
||||
write "make = ",^car("make"),!
|
||||
write "model = ",^car("model"),!
|
||||
write "mileage = ",@^car("mileage")@(150,4),!
|
||||
|
||||
write !,"Pesimist computation",!
|
||||
set ^car("mileage")="$$computepesimist^mileage"
|
||||
write "make = ",^car("make"),!
|
||||
write "model = ",^car("model"),!
|
||||
write "mileage = ",@^car("mileage")@(150,4),!
|
||||
|
||||
write !,"Optimist computation",!
|
||||
set ^car("mileage")="$$computeoptimist^mileage"
|
||||
write "make = ",^car("make"),!
|
||||
write "model = ",^car("model"),!
|
||||
write "mileage = ",@^car("mileage")@(150,4),!
|
||||
|
||||
Reference in New Issue
Block a user