JeffIrwin

# hello.r

# Windows one-time setup (requires choco):
#
#     choco install R
#
# Run this from a shell:
#
#     "/c/Program Files/R/R-4.1.2/bin/Rscript.exe" hello.r

JeffIrwin

module mymodule

	integer, parameter :: n = 6
	integer, parameter :: myarray(n) = [1, 1, 2, 3, 5, 8]

contains

	integer function myfunc(input)

JeffIrwin

clear
clc
xdel(winsid())

asc = 'send help'

//==============================================================================

bin = ''

JeffIrwin

subroutine eniuq(t)
	character(len = :), allocatable :: s
	character(len = *) :: t
	integer :: i
	s = ''
	do i = 1, len(t)
		if (t(i:i) == char(10)) then
			s = s//char(34)//'//char(10)// &'//t(i:i)//'	'//char(34)
		else
			s = s//t(i:i)

JeffIrwin

program p

	character(len = *), parameter :: c = '' &
			//'			//''''\n' &
			//'\n' &
			//'	character(len = :), allocatable :: d\n' &
			//'\n' &
			//'	integer :: i\n' &
			//'\n' &
			//'	print ''(a)'', "program p"\n' &

JeffIrwin

import sys

if len(sys.argv) != 2:
    print("Usage:")
    print("python3 triplePalindrome.py 30041777")
    sys.exit(-1)

nStr = sys.argv[1]
n = int(nStr)