DSCF-1224

#include <cstdlib>
// for; EXIT_SUCCESS
// for; EXIT_FAILURE
#include <iostream>
// for; std::cerr
#include <string>
// for; std::string
// for; std::string std::literals::string_literals::operator ""s
#include "ver20191023_01.hpp"

DSCF-1224

module Mod20191022v01

    mutable struct Coordinate{T <: Core.Real}
        x::T
        y::T
    end

    function Base.:+(cd1::Coordinate{T}, cd2::Coordinate{T}) where T <: Core.Real
        return Coordinate{T}(cd1.x + cd2.x, cd1.y + cd2.y)
    end

DSCF-1224

function exchangeBackslash(path::Core.AbstractString)

	return Base.replace(path, '\u005c' => '\u002f')

end

path_raw = Base.readline(Base.stdin)
path_fix = Main.exchangeBackslash(path_raw)
Base.println(Base.stdout, path_fix)
Base.println(Base.stdout, Base.Filesystem.isabspath(path_raw))

DSCF-1224

program hello

use, intrinsic :: iso_fortran_env

implicit none

integer(INT8), parameter :: ichar_a = ichar("a")
integer(INT8), parameter :: ichar_z = ichar("z")
integer(INT8), parameter :: ichar_width_az = ichar_z - ichar_a + 1