Transportation problem: Difference between revisions

<br><br>

 

|-

!style="width:100pt"|

<br><br>

 

|-

!style="width:100pt"|

 

=={{header|1C}}==

 

перем m,n; // Table size

Процедура КомандаРассчитать(Команда)

РешениеТранспортнойЗадачи();

 

=={{header|C sharp|C#}}==

{{trans|Java}}

using System.Collections.Generic;

using System.IO;

}

}

{{out}}

<pre>Optimal solution input1.txt

=={{header|C++}}==

{{trans|Kotlin}}

#include <iomanip>

#include <iostream>

#include <string>

#include <vector>

 

using namespace std;

 

return 0;

{{out}}

<pre>input1.txt

=={{header|D}}==

{{trans|Java}}

 

final class Shipment {

printResult(fileName, demand, supply, costs, matrix);

}

{{out}}

<pre>Optimal solution transportation_problem1.txt

 

=={{header|Glagol}}==

ИСПОЛЬЗУЕТ

Вывод ИЗ "...\Отделы\Обмен\",

ВывестиПлан

 

 

=== Input ===

=={{header|Go}}==

{{trans|Java}}

 

import (

t.printResult()

}

 

{{out}}

In other words:

 

ndxasgn=: conjunction define

:

r=. n (<ndxs)} r

end.

 

Task data:

 

supply=: 25 35

 

Task example:

 

20 0 5

 

=={{header|Java}}==

{{works with|Java|8}}

import java.util.*;

import static java.util.Arrays.stream;

}

}

 

<pre>input1.txt

 

=={{header|Julia}}==

 

 

A = [1 1 1 0 0 0

0 0 0 1 1 1

1 0 0 1 0 0

0 1 0 0 1 0

 

 

 

{{out}}

 

=={{header|Kotlin}}==

{{trans|Java}}

 

import java.io.File

}

}

 

{{out}}

Same as Java entry

</pre>

 

=={{header|Pascal}}==

{ based on the program of <Svetlana Belashova> }

 

GotoXY(40,1);

l1: d:=ReadKey;

 

=={{header|Phix}}==

The simplest solution I could think of.<br>

Assumes 0 cost is not allowed, but using say -1 as the "done" cost instead should be fine.

{{out}}

<pre>

Obviously I did not really quite understand the problem when I rattled out the above... this does much better.

{{trans|Go}}

{{out}}

(Obviously the other eight tests all work fine and produce similar output.)

</pre>

Note that [[Vogel%27s_approximation_method#Phix]] gets a few of the others wrong and loops on #2, then again that is unbalanced (needs a dummy customer), and I'm not sure whether throwing such at VAM is fair or not.

 

=={{header|Racket}}==

Using <code>typed/racket</code>, to keep track of Vectors of Vectors of data.

 

;; {{trans|Java}}

(define-type (V2 A) (Vectorof (Vectorof A)))

30 40 35 45

$

{{out}}

Output of: <code>raco test Transportation-problem.rkt</code>:

{{works with|Rakudo|2019.03.1}}

Using [[Vogel's_approximation_method#Raku|Vogel's approximation method]]:

my %demand = :20C1, :30C2, :10C3;

my %supply = :25S1, :35S2;

print "\n";

}

{{out}}

<pre> C1 C2 C3

S1 20 - 5

S2 - 30 5 </pre>

 

=={{header|SAS}}==

Use network solver in SAS/OR:

 

data cost_data;

input from $ to $ cost;

print _OROPTMODEL_NUM_['OBJECTIVE'];

print flow;

 

Output:

s1 20 0 5

s2 0 30 5

</pre>