Prelude> :m Text.ParserCombinators.Parsec.Pos Prelude Text.ParserCombinators.Parsec.Pos> initialPos "foo" Loading package parsec ... linking ... done. "foo" (line 1, column 1)

#!/usr/bin/env lua print(pcall(math.abs, -1)) print(pcall(math.abs, -1, 2)) print(pcall(math.max, 1, 2, 3)) print(pcall(string.len, 100)) print(string.len(100)) で、 true 1 true 1 true 3 true 3 3エラーの発生する例を作れなかった…

>> require "rubygems" => true >> require "active_support" => true >> Time.local(2008).to_time => Tue Jan 01 00:00:00 +0900 2008 >> Time.local(2008).to_time.class => Time

import org.apache.commons.lang.StringUtils; public class C2008112200 { public static void main(String[] args) { System.out.println(StringUtils.stripEnd(null, "") + "*"); System.out.println(StringUtils.stripEnd("", "") + "*"); System.out.pr…

Prelude> :m Text.ParserCombinators.Parsec.Pos Prelude Text.ParserCombinators.Parsec.Pos> :t updatePosString updatePosString :: SourcePos -> String -> SourcePos Prelude Text.ParserCombinators.Parsec.Pos> let x = newPos "foo" 10 20 Loading p…

#!/usr/bin/env lua t = { "foo", "bar", "baz" } field, value = next(t) while field do print(field, "=", value) field, value = next(t, field) end for k,v in pairs(t) do print(k, "=", v) end で、 1 = foo 2 = bar 3 = baz 1 = foo 2 = bar 3 = baz

>> require "rubygems" => true >> require "active_support" => true >> Time::DATE_FORMATS => {:long_ordinal=>#<Proc:0x4077f9bc@/usr/local/ruby-1.8.6/lib/ruby/gems/1.8/gems/activesupport-2.1.1/lib/active_support/core_ext/time/conversions.rb:12>, :rfc822=>"%a, %d %b %Y %H:%M:%S %z", :time=>"%H:%M", :num…</proc:0x4077f9bc@/usr/local/ruby-1.8.6/lib/ruby/gems/1.8/gems/activesupport-2.1.1/lib/active_support/core_ext/time/conversions.rb:12>

まんま import org.apache.commons.lang.StringUtils; public class C2008112100 { static void output(String[] ary) { boolean f = false; if (ary == null) { System.out.println(ary); } else { for (String s : ary) { if (f) { System.out.print(',');…

Prelude> :m Text.ParserCombinators.Parsec.Pos Prelude Text.ParserCombinators.Parsec.Pos> :t updatePosChar updatePosChar :: SourcePos -> Char -> SourcePos Prelude Text.ParserCombinators.Parsec.Pos> let x = newPos "foo" 10 20 Loading package…

2008-07-31 ので、「next(t, nil)」を「next(t)」にしただけ #!/usr/bin/env lua t = { "foo", "bar", "baz" } field, value = next(t) while field do print(field, "=", value) field, value = next(t, field) end で、 1 = foo 2 = bar 3 = baz#!/usr/bin…

>> require "rubygems" => true >> require "active_support" => true >> Time.local(2008).to_formatted_s(:time) => "00:00" >> Time.local(2008).to_s(:time) => "00:00" >> Time.local(2008).to_formatted_s(:db) => "2008-01-01 00:00:00" >> Time.loca…

まんま import org.apache.commons.lang.StringUtils; public class C2008112000 { public static void main(String[] args) { System.out.println(StringUtils.strip(null) + "*"); System.out.println(StringUtils.strip("") + "*"); System.out.println(S…

Prelude> :m Text.ParserCombinators.Parsec.Pos Prelude Text.ParserCombinators.Parsec.Pos> :t setSourceName setSourceName :: SourcePos -> SourceName -> SourcePos Prelude Text.ParserCombinators.Parsec.Pos> let x = newPos "foo" 10 20 Loading p…

#!/usr/bin/env lua f = loadstring("1+2") print(f) f = loadstring("x=1+2") print(f) f() print(x) で、 nil function: 0x8051268 3

>> require "rubygems" => true >> require "active_support" => true >> Time.local(2008).to_datetime => Tue, 01 Jan 2008 00:00:00 +0900 >> Time.local(2008).to_datetime.class => DateTime

まんま import org.apache.commons.lang.StringUtils; public class C2008111900 { static void output(String[] ary) { boolean f = false; if (ary == null) { System.out.println(ary); } else { for (String s : ary) { if (f) { System.out.print(',');…

Prelude> :m Text.ParserCombinators.Parsec.Pos Prelude Text.ParserCombinators.Parsec.Pos> :t setSourceColumn setSourceColumn :: SourcePos -> Column -> SourcePos Prelude Text.ParserCombinators.Parsec.Pos> let x = newPos "foo" 10 20 Loading p…

#!/usr/bin/env lua pow = loadlib("/usr/lib/libm.so", "pow") fabs = loadlib("/usr/lib/libm.so", "fabs") cos = loadlib("/usr/lib/libm.so", "cos") print(pow) print(cos) print(fabs) print(pow(2, 3)) print("***") print(cos(0)) print(fabs(-1.2))…

>> require "rubygems" => true >> require "active_support" => true >> Time.local(2008).to_date => Tue, 01 Jan 2008 >> Time.local(2008).to_date.class => Date

まんま import org.apache.commons.lang.StringUtils; public class C2008111800 { public static void main(String[] args) { System.out.println(StringUtils.rightPad(null, 10)); System.out.println(StringUtils.rightPad("", 3)); System.out.println(…

Prelude> :m Text.ParserCombinators.Parsec.Pos Prelude Text.ParserCombinators.Parsec.Pos> :t setSourceLine setSourceLine :: SourcePos -> Line -> SourcePos Prelude Text.ParserCombinators.Parsec.Pos> let x = newPos "foo" 10 20 Loading package…

#!/usr/bin/env lua f = loadfile("2008111801.lua") f() で、2008111801.lua は、 print("foo") print("bar") で、 foo bar

まんま >> require "rubygems" => true >> require "active_support" => true >> Time.local(2000).formatted_offset => "+09:00" >> Time.local(2000).formatted_offset(false) => "+0900"

import org.apache.commons.lang.StringUtils; public class C2008111700 { public static void main(String[] args) { System.out.println(StringUtils.right(null, 99)); System.out.println(StringUtils.right("zzz", -99)); System.out.println(StringUt…

Prelude> :m Text.ParserCombinators.Parsec.Pos Prelude Text.ParserCombinators.Parsec.Pos> :t incSourceColumn incSourceColumn :: SourcePos -> Column -> SourcePos Prelude Text.ParserCombinators.Parsec.Pos> let x = newPos "foo" 10 20 Loading p…

#!/usr/bin/env lua x = { 10, 20, foo = "FOO" } for i, v in ipairs(x) do print(i, v) end print("***") for key, val in pairs(x) do print(key, val) end で、 1 10 2 20 *** 1 10 2 20 foo FOO

>> require "rubygems" => true >> require "active_support" => true >> Time.utc_time(2008) => Tue Jan 01 00:00:00 UTC 2008 >> Time.utc_time(2008, 1, 2, 3, 4, 5, 6) => Wed Jan 02 03:04:05 UTC 2008

import org.apache.commons.lang.StringUtils; public class C2008111600 { public static void main(String[] args) { System.out.println(StringUtils.reverseDelimited(null, 'z')); System.out.println(StringUtils.reverseDelimited("", 'z')); System.…

Prelude> :m Text.ParserCombinators.Parsec.Pos Prelude Text.ParserCombinators.Parsec.Pos> :t incSourceLine incSourceLine :: SourcePos -> Line -> SourcePos Prelude Text.ParserCombinators.Parsec.Pos> let x = newPos "foo" 10 20 Loading package…

#!/usr/bin/env lua print(gcinfo()) で、 15 24