?? divideop.java
字號:
package gnu.jemacs.lang;import gnu.math.*;import gnu.mapping.*;public class DivideOp extends ProcedureN{ public DivideOp(String name) { setName(name); } public static final DivideOp $Sl = new DivideOp("/"); public static Object $Sl(Object arg1) { return $Sl(IntNum.one(), arg1); } public static Object $Sl(Object arg1, Object arg2) { Numeric num1 = ELisp.asNumber(arg1); Numeric num2 = ELisp.asNumber(arg2); if (num1 instanceof IntNum && num2 instanceof IntNum) return IntNum.quotient((IntNum) num1, (IntNum) num2, Numeric.TRUNCATE); return num1.div(num2); } public static Object $Sl$V (Object arg1, Object arg2, Object arg3, Object[] rest) { return applyN($Sl($Sl(arg1, arg2), arg3), rest); } public static Object applyN(Object init, Object[] args) { int len = args.length; Object result = init; for (int i = 0; i < len; i++) result = $Sl(result, args[i]); return result; } public Object applyN (Object[] args) { int len = args.length; if (len <= 1) return $Sl(args[0]); Object result = args[0]; for (int i = 1; i < len; i++) result = $Sl(result, args[i]); return result; }}
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -