valvallow

@ECHO OFF

ECHO --------------------------------------------
ECHO 指定時刻にメッセージを表示します
ECHO --------------------------------------------

SET /p MESSAGE_TEXT="メッセージを入力して下さい > " 
SET /p START_TIME="時刻を指定して下さい（ex. 09:15） > " 

SET TIME2=%time: =0%

valvallow

#!/usr/local/bin/gosh

;;; 本とshiroさんのコードを写経しつつ少し改造してあります。
;;; https://github.com/shirok/Gauche-LoL/blob/master/evolution.scm
;;; https://github.com/shirok/Gauche-LoL/blob/master/evolution-color.scm

(use srfi-1) ; list-tabulate
(use srfi-27) ; random-integer
(use gauche.parameter)
(use gauche.record)

valvallow

#!/usr/local/bin/gosh

(use gauche.process)
(use math.mt-random)

(define (main args)
  (define rand
    (let1 m (make <mersenne-twister> :seed (sys-time))
      (^n (mt-random-integer m n))))
  (define (get-tput-val . args)

valvallow

cat temp/kuromadousi.dat | gosh -u srfi-13 -e '(for-each(^s(string-for-each(^c(display(if(eq? #\space c)" "#`",(string #\\escape)[4,|c|m ,(string #\\escape)[0m")))s)(print))(port->list read-line(standard-input-port))))'

valvallow

                                                                                                                                                        
                                                                                                                                                        
                                                                                                          

valvallow

                   
                   
   0 00 0000000    
  01011011111110   
 010111111111000   
 0111111111111110  
  011111111111100  
 01113113111111110 
 0101310011111110  
  00100031133100   

valvallow

#!/usr/local/bin/gosh

(use gauche.parseopt)

(define (usage cmd)
  (print "usage: " cmd " [option ...] number ...")
  (print "       " cmd " -r [option ...] number [obase ...]")
  (print " options:")
  (print "  r|rest-to-obase : rest args to obase")
  (print "  i|ibase : input base (default 10)")

valvallow

#!/usr/bin/gosh

;; baroque

(use gauche.parseopt)
(use srfi-1) ; circular-list

;;
;; solver
;;

valvallow

#!/bin/sh

FROM_ADDR='from@mail.com'
TO_ADDR='to@mail.com'
SUBJECT='subject'

MESSAGE=''

if [ $# -eq 0 ] ; then
        read MESSAGE

valvallow

@ECHO --------------------------------------------
@ECHO 指定秒後にメッセージを表示します
@ECHO --------------------------------------------

@SET /p MESSAGE_TEXT="メッセージを入力して下さい > " 
@SET /p SLEEP_SECONDS="待機秒数を指定して下さい > " 

@TIMEOUT /T %SLEEP_SECONDS% /NOBREAK
@MSG console %MESSAGE_TEXT%