Imports System

imports system.collections.generic

​

Public Module Module1

    Public Sub Main()

        dim matrix as new list(of list(of boolean))

        dim amat as new list(of boolean)(new boolean() {true,false,false})

        dim bmat as new list(of boolean)(new boolean() {false,true,false})

        dim cmat as new list(of boolean)(new boolean() {false,false,false})

        matrix.add(amat)

        matrix.add(bmat)

        matrix.add(cmat)

        dim min(matrix.count,amat.count) as integer

        dim lin() as integer

        dim i,j,k as integer

        for i = 0 to amat.count-1

            for j = 0 to matrix.count-1

            min(i,j)=0

            next j

        next i

        for i = 1 to amat.count-2

            for j = 1 to matrix.count-2

            if matrix(j-1)(i-1)=true then 

                min(j-1,i)=min(j-1,i)+1

                min(j,i-1)=min(j,i-1)+1

                min(j,i)=min(j,i)+1

            end if

            if matrix(j-1)(i)=true then 

                min(j-1,i-1)=min(j-1,i-1)+1

                min(j-1,i+1)=min(j-1,i+1)+1

                min(j,i-1)=min(j,i-1)+1

                min(j,i)=min(j,i)+1

                min(j,i+1)=min(j,i+1)+1

            end if

            if matrix(j-1)(i+1)=true then 

                min(j-1,i-1)=min(j-1,i-1)+1

                min(j,i)=min(j,i)+1

                min(j,i+1)=min(j,i+1)+1

            end if

            if matrix(j)(i+1)=true then 

                min(j-1,i-1)=min(j-1,i-1)+1

                min(j-1,i)=min(j-1,i)+1

                min(j,i)=min(j,i)+1

                min(j+1,i-1)=min(j+1,i-1)+1

                min(j+1,i)=min(j+1,i)+1

            end if

            if matrix(j)(i)=true then 

                min(j-1,i-1)=min(j-1,i-1)+1

                min(j-1,i)=min(j-1,i)+1

                min(j,i)=min(j,i)+1

                min(j+1,i-1)=min(j+1,i-1)+1

                min(j+1,i)=min(j+1,i)+1

            end if

​

​

            next j

        next i

        console.write(min(0,1))

    End Sub

End Module