rinx

rinx

--
-- 🍣-soku-enzan.hs
--

(🍣)                = (+)
(🍣🍣)           = (-)
(🍣🍣🍣)      = (*)
(🍣🍣🍣🍣) = (/)

main :: IO ()

rinx

require 'csv'

  filename = "test.tsv"
  # read original_records into hash
  original_records = []
  headers = []
  CSV.read(filename, :col_sep => "\t", headers: false).each_with_index do |row, i|
    if i == 0 then
      headers = row
      next

rinx

import System.Random.MWC

np  = 1000000
tau = 1.0 -- cloud optical thickness
sal = 0.5 -- surface albedo
omg = 1.0 -- single scattering albedo
zu  = tau -- atmosphere upper boundary
zb  = 0.0 -- atmosphere lower boundary

rinx

{-# LANGUAGE ExtendedDefaultRules, NoMonomorphismRestriction #-}

import Conduit

np  = 10000
tau = 1.0 -- cloud optical thickness
sal = 0.5 -- surface albedo
omg = 1.0 -- single scattering albedo
zu  = tau -- atmosphere upper boundary
zb  = 0.0 -- atmosphere lower boundary

rinx

local cjson = require "cjson"

-- Basic account info
local client_id = ""
local client_secret = ""
local refresh_token = ""

local boundary = "--61141483716826"

local function checkWlanConnect()

rinx

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple Computer//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
    <dict>
        <key>Label</key>
        <string>iterm_wpchange</string>
        <key>ProgramArguments</key>
        <array>
            <string>/bin/sh</string>
            <string>/Users/okamura/.iterm_wp/wpchange.sh</string>

rinx

#!/bin/sh

CMDNAME=`basename $0`
BASE_DIR=$(cd $(dirname $0);pwd)

image_list=(${BASE_DIR}/*.jpg)
numimglist=${#image_list[@]}
rannum=$(( $RANDOM % ${numimglist}))
image_path=${image_list[$rannum]}

rinx

local cjson = require "cjson"

-- Basic account info
local client_id = ""
local client_secret = ""
local refresh_token = ""

local boundary = "--61141483716826"

local function getAuth()

rinx

#!/usr/bin/env ruby
# -*- coding: utf-8 -*-

#
# plot-3d-ipa.rb
#
# Author:
#   Rintaro Okamura
#
# Requires ruby-netcdf