Implement guessing

Author: foxtran

fortran/solver/src/API.f90

@@ -3,7 +3,7 @@ module API_mod
     use plan_mod, only: plan_t
     implicit none
     private
-    public :: select, explore
+    public :: select, explore, guess
 contains
     subroutine select(task)
         type(task_t), intent(in) :: task
@@ -104,4 +104,31 @@ subroutine explore(task, plans)
         close(lu, status = "delete")
 
     end subroutine explore
+    subroutine guess(task, solution)
+        type(task_t), intent(in) :: task
+        character(len=*), intent(in) :: solution
+
+        character(len=:), allocatable :: command, header, request, data
+
+        integer :: lu
+
+        open(newunit = lu, file = "guess", status = "unknown")
+        close(lu, status = "delete")
+
+        header = ' --header "Content-Type: application/json" '
+        request = ' --request POST '
+        data = ' --data ''{ "id": "' // task%API_ID // '", ' // solution // ' }'' '
+
+        command = 'curl -s ' // header // request // data // task%API_URL // '/guess > guess'
+        call execute_command_line(command, wait=.true.)
+
+        open(newunit = lu, file = "guess", status = "old")
+        block
+            integer :: idx
+            data = repeat(" ", 1024)
+            read(lu, '(A)') data
+            print '(A,A)', 'Resolution: ', trim(data)
+        end block
+        close(lu, status = "delete")
+    end subroutine guess
 end module API_mod

fortran/solver/src/solution.f90

@@ -30,9 +30,9 @@ function connection_t_to_json(connection) result(json)
         class(connection_t), intent(in) :: connection
         character(len=:), allocatable :: json
         character(len=120) :: json_tmp
-        write(json_tmp, '(A,4(I0,A))') '{ "from": { "room": ', connection%room_out, ', ' // &
+        write(json_tmp, '(A,4(I0,A))') '{ "from": { "room": ', connection%room_out - 1, ', ' // &
                                                    '"door": ', connection%door_out, ' }, ' // &
-                                           '"to": { "room": ', connection%room_in, ', ' // &
+                                           '"to": { "room": ', connection%room_in - 1, ', ' // &
                                                    '"door": ', connection%door_in, ' } }'
         json = trim(json_tmp)
     end function connection_t_to_json
@@ -77,7 +77,7 @@ function solution_t_to_json(solution) result(json)
             json = json // trim(tmp)
             if (i /= size(solution%connections) / 6) json = json // ', '
         end do
-        json = json // ' ], "startingRoom": 1, "connections": [ '
+        json = json // ' ], "startingRoom": 0, "connections": [ '
         do i = 1, size(solution%connections)
             json = json // solution%connections(i)%to_json()
             if (i /= size(solution%connections)) json = json // ', '

fortran/solver/src/solver.f90

@@ -6,6 +6,7 @@ module solver_mod
     type :: solver_t
         logical(1) :: inited = .false.
         type(library_t) :: library
+        type(task_t) :: task
     contains
         procedure :: init
         procedure :: submit
@@ -35,6 +36,7 @@ subroutine init(solver, arg)
         end do
         call solver%library%refine()
         call solver%library%show()
+        solver%task = task
     contains
         function generate_plans(task) result(plans)
             type(task_t) :: task
@@ -53,8 +55,10 @@ end function generate_plans
     end subroutine init
     subroutine submit(solver)
         use solution_mod, only: solution_t
+        use API_mod, only: guess
         class(solver_t), intent(inout) :: solver
         type(solution_t) :: solution
         call solution%init(solver%library)
+        call guess(solver%task, solution%to_json())
     end subroutine submit
 end module solver_mod