This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
PROGRAM VPMDECO | |
C=============================================================================== | |
C Varying Permeability Model (VPM) Decompression Program in FORTRAN | |
C | |
C Author: Erik C. Baker | |
C | |
C "DISTRIBUTE FREELY - CREDIT THE AUTHORS" | |
C | |
C This program extends the 1986 VPM algorithm (Yount & Hoffman) to include | |
C mixed gas, repetitive, and altitude diving. Developments to the algorithm |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
#!/usr/bin/env escript | |
%% -*- erlang -*- | |
%%! -smp enable -sname bvi_group | |
%% escript ./bvi_group.erl | |
% Magic compiler directive to make reduce/1 be visible in main/1. | |
-mode(compile). | |
%% This is a variant of the debt reduce interview question that works |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
require Integer | |
require Logger | |
defmodule Processor do | |
def process(state) do | |
:timer.sleep(1000) | |
result = :os.system_time(:millisecond) | |
Logger.info("process(#{state}) -> #{result}") | |
case Integer.is_even(result) do | |
true -> |
OlderNewer