क्लोजर बिगइंट जावा बिगइंटर

Question

मैं क्लोजर में मॉडल (यदि आवश्यक हो) मनमाने ढंग से सटीक संख्याओं के लिए BigDecimals का उपयोग करने की कोशिश कर रहा हूं।

user=> 1.31M 
1.31M (OK) 
user=> (class 1.31M) 
java.math.BigDecimal (OK) 
user=> (.unscaledValue 1.31M) 
131 (OK) 
user=> (.scale 1.31M) 
2 (OK) 
user=> (.movePointLeft (BigDecimal. 131) 2) 
1.31M (OK) 
user=> (BigDecimal. (BigInteger. "131") 2) 
1.31M 
user=> (BigDecimal. 131N 2) (WRONG!!!) 
IllegalArgumentException No matching ctor found for class java.math.BigDecimal clojure.lang.Reflector.invokeConstructor (Reflector.java:183) 
user=> (BigDecimal. (BigInteger. "131") 2) 
1.31M 

समस्या है कि यहाँ clojure बड़ा पूर्णांक एक java.math.BigInteger वस्तु नहीं है: मैं जब मैं एक बगैर माप का मूल्य और पैमाने कारक से एक BigDecimal का दृष्टांत करने की कोशिश एक अजीब त्रुटि की है। यहां तक ​​कि (bigint एक्स) काम नहीं करता है:

user=> (doc bigint) 
------------------------- 
clojure.core/bigint 
([x]) 
    Coerce to BigInt 
nil 

और जिस तरह से BigInteger निर्माता सीधे संख्यात्मक मान स्वीकार नहीं करता। मैं जानता हूँ कि मैं भी कुछ ऐसा कर सकता है:

user=> (BigDecimal. (BigInteger. (.toByteArray (.unscaledValue 1.31M))) (.scale 1.31M)) 
1.31M 

मेरे सवाल यह है: वहाँ सीधे का एक और अधिक मुहावरेदार रास्ता Clojure से BigInteger वस्तुओं का प्रबंधन है? या मैं कस्टम लाइब्रेरी में सब कुछ लपेटने के लिए फंस गया हूं, जैसे:

user=> (defn my-bigint [x] (BigInteger. (.toString x))) 
#'user/my-bigint 
user=> (my-bigint 131) 
131 
user=> (BigDecimal. (my-bigint 131) 2) 
1.31M 

सहायता के लिए अग्रिम धन्यवाद!

अद्यतन: I क्रमशः प्रयोजनों के उद्देश्यों के लिए एक बिगइन्टर की आवश्यकता है: मेरा विचार एक बिगडिमल को बाइट सरणी और एक पूर्णांक के रूप में स्टोर करना है। मेरे समस्या यह है कि Clojure में, अगर मैं चाहता हूँ, मुझे .unscaledValue का परिणाम आगे और पीछे पारित नहीं हो सकता क्योंकि Clojure का क्या करता है नहीं BigInteger पूर्णांकों से बनाए गए (न करना जावा, यह महत्वपूर्ण कार्यों के लिए) है:

user=> (BigInteger. 3) 
IllegalArgumentException No matching ctor found for class java.math.BigInteger clojure.lang.Reflector.invokeConstructor (Reflector.java:183) 

नंबर पर .toString पर कॉल करने के लिए serialization (और अधिक त्रुटि प्रवण) के अर्थशास्त्र के लिए अनुपयोगी है।

user=> (bigdec 131N 2) 

नहीं .movePointLeft (लाभ के बिना दो विभिन्न वस्तुओं के निर्माण), कोई .toString (मैं एक संख्या है, मैं इसे stringify: मैं अगर Clojure में वहाँ एक मुहावरेदार रास्ता की तरह कुछ लिखने के लिए जानना चाहते हैं और फिर बिगइंटर, एक और नंबर, इससे बनाते हैं?), कोई धीमी और अप्रत्यक्ष विधि नहीं: केवल सादा बिगइंटर और स्केल मान।

Vinz

Answer 1

=> (type (.unscaledValue 1.31M)) 
java.math.BigInteger 

=> (type (biginteger 131)) 
java.math.BigInteger 

=> (BigDecimal. (biginteger 131) 2) 
1.31M 

Answer 2

user=> (.movePointLeft (bigdec 131) 2) 
1.31M 
user=> (.movePointLeft (bigdec 131N) 2) 
1.31M 

user=> (source bigdec) 
(defn bigdec 
    "Coerce to BigDecimal" 
    {:tag BigDecimal 
    :added "1.0" 
    :static true} 
    [x] (cond 
     (decimal? x) x 
     (float? x) (. BigDecimal valueOf (double x)) 
     (ratio? x) (/ (BigDecimal. (.numerator x)) (.denominator x)) 
     (instance? BigInteger x) (BigDecimal. ^BigInteger x) 
     (number? x) (BigDecimal/valueOf (long x)) 
     :else (BigDecimal. x))) 

Answer 3

मुझे यह पसंद थोड़ा बेहतर:

(-> 131M (.movePointLeft 2))