Banker's algorithm: Difference between revisions

{{trans|Python}}

V processes = Int(input(‘Cantidad de procesos: ’))

V max_resources = input(‘Recursos máximos: ’).split_py().map(i -> Int(i))

L.break

{{out}}

There are two <code>main()</code> functions to choose from (look for <code>#define BIG_EXAMPLE</code>), one is for task example, the other is a much heavier duty test case.

#include <stdbool.h>

return 0;

{{out|Input and Output}}

<pre>Enter the number of resources: 4

=={{header|FreeBASIC}}==

{{trans|Kotlin}}

Dim As Integer i, j, r, p

Input "Ingrese la cantidad de recursos: ", r

Loop

Sleep

{{out}}

<pre>

This solution is more inspired by EWD-623 than WP. EWD-623, while it talks of finding a permutation of processes, notes that the "ordering effort" can be stopped as soon as the process requesting resources happens to be found satisfiable. The solution here attempts to make this finding as soon as possible by moving the process to the front of a list of unsatisfied processes. Also since the solved permutation of satisfied processes has no use, it is not kept which simplifies the algorithm a bit.

import (

perm[h] = perm[m]

}

import (

fmt.Println("\nP3 request:")

fmt.Println(b.Request("P3", bank.RMap{"A": 1, "B": 2, "C": 1}))

{{out}}

<pre>

The task description currently does not define the process being run. So we follow the example set by other implementations and have each process free all resources after successfully being run. Also, since this is a demo, we give a blow-by-blow description of what's happening as it runs.

'MAX ALLOC TOTAL'=. y

todo=.(#ALLOC)#1

end.

echo 'DONE'

Definitions for task example:

alloc=: 1 2 2 1,1 0 3 3,:1 2 1 0

total=:6 5 7 6

NB. left arg: newly available resources, right: previously available

NB. result: resources freed

Example run:

currently available: 3 1 1 2

running process 0, allocating 2 1 0 1

running process 2, allocating 0 1 4 0

process 2 freeing 1 3 5 0

=={{header|Julia}}==

{{trans|Kotlin}}

print(query, ": ")

entry = uppercase(strip(readline(stdin)))

testbankers()

<pre>

Enter the number of resources: 4

{{trans|C}}

For simplicity, input checking is ignored:

fun main(args: Array<String>) {

println("\nAvailable Vector: ${avl.joinToString(" ")}")

}

Sample input/output:

=={{header|M2000 Interpreter}}==

Module BankerAlgo {

Form 80, 44

End Sub

}

=={{header|Nim}}==

{{trans|Kotlin}}

stdout.write "Enter the number of resources: "

echo "\nThe process is in a safe state."

{{out}}

=={{header|Perl}}==

{{trans|Raku}}

use warnings;

use feature 'say';

my($safe_state,$status_message) = isSafe(\@avail, \@maxm, \@allot);

say "Safe state? " . ($safe_state ? 'True' : 'False');

{{out}}

<pre>available resources: 4 3 3 3

=={{header|Phix}}==

<span style="color: #008080;">with</span> <span style="color: #008080;">javascript_semantics</span>

<span style="color: #004080;">sequence</span> <span style="color: #000000;">max_res</span> <span style="color: #0000FF;">=</span> <span style="color: #0000FF;">{</span><span style="color: #000000;">6</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">5</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">7</span><span style="color: #0000FF;">,</span> <span style="color: #000000;">6</span><span style="color: #0000FF;">},</span>

<span style="color: #7060A8;">printf</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span> <span style="color: #008000;">"Safe state. Available resources: %V\n"</span><span style="color: #0000FF;">,{</span><span style="color: #000000;">avl</span><span style="color: #0000FF;">})</span>

<span style="color: #008080;">end</span> <span style="color: #008080;">while</span>

{{out}}

<pre>

=={{header|Python}}==

def main():

resources = int(input("Cantidad de recursos: "))

if __name__ == '__main__':

main()

{{out}}

<pre>

=={{header|Racket}}==

(require racket/block racket/pretty racket/port racket/vector)

EOS

{{out}}

Based on the Python3 solution by Shubham Singh found

[https://www.geeksforgeeks.org/program-bankers-algorithm-set-1-safety-algorithm/ here]

my @maxm = <3 3 2 2>, <1 2 3 4>, <1 3 5 0>; # Maximum resources that can be allocated to processes

my @allot = <1 2 2 1>, <1 0 3 3>, <1 2 1 0>; # Resources allocated to processes

my ($safe-state,$status-message) = isSafe @avail, @maxm, @allot;

say "Safe state? $safe-state";

{{out}}

<pre>available resources: 4 3 3 3

Adapted from the C language version. It crashes for invalid input.

fn read_numbers<T>() -> Vec<T>

where T: std::str::FromStr {

println!();

}

{{out|Input and Output}}

=={{header|Swift}}==

print("Enter the number of resources: ", terminator: "")

print("The available vector is: \(available)")

{{out|Input and Output}}

=={{header|Wren}}==

{{trans|Kotlin}}

System.write("Enter the number of resources: ")

System.write("\nThe process is in a safe state.")

System.print("\nAvailable Vector: %(avl.join(" "))")

{{out}}

=={{header|Yabasic}}==

{{trans|FreeBASIC}}

clear screen

input "Ingrese la cantidad de recursos: " r

print

end