haskell - How to convert a data type into a MonadState -

-

मेरे पास इन प्रकार हैं: 

  डेटा ट्री ए = शाखा (ट्री ए) ए ( पेड़ ए) | लीफ डेरिविंग (ईक, ऑर्ड, शो) न्यूटाइप राज्य का ए = स्टेट '{runState' :: (एस, गणना) - & gt; (ए, एस, गणना)}

इन उदाहरणों के साथ: 

  उदाहरण मोनद (राज्य का) उदाहरण मोनैडास्टेट (राज्य)   
 और मुझे फ़ंक्शन बनाने की आवश्यकता है  
  label :: MonadState m int = & gt; ट्री ए - & gt; एम (पेड़ (इंट, ए))  
 
 लेकिन मुझे नहीं पता कि मैं कैसे एक पेड़ को  state ' में परिवर्तित कर सकता हूं।

आपको अपने राज्य मूल्य को ट्री को बदलने की आवश्यकता नहीं है, आपको लेबलिंग प्रक्रिया के प्रत्येक चरण पर int के राज्यपूर्ण मूल्य का उपयोग करना होगा इसके लिए, आपको संभवतः 

  getLabelAndIncr :: MonadState m int = & gt; एम + आईटी मिलेल और एंड्रॉक्ट = चालू करें & lt; - $ चालू करें + वर्तमान रिटर्न चालू करें

फिर अपने label फ़ंक्शन में आप ऐसा कुछ कर सकते हैं

< प्री> label :: MonadState m int = & gt; ट्री ए - & gt; मी (पेड़ (इंट, ए)) लेबल = लीफ लेब लेबल (शाखा के बायीं नोड दाएं) = आई एल एंड एलटी; - getLabelAndInc नईनोड = (एल, नोड) नई लेफ्ट और एलटी; - ??? न्यूराइट और लेफ्टिनेंट; - ??? वापस $ branch newLeft newNode newRight

आपको यह पता लगाना होगा कि ??? में क्या होता है, मैं यह सब एक को हल करने नहीं जा रहा हूँ आपके लिए, लेकिन यह काफी सीधा व्यायाम होना चाहिए। यहाँ क्या हो रहा है यह है कि getLabelAndIncr का उपयोग करने के लिए वर्तमान लेबल मान हो जाता है, फिर राज्य में बढ़ी गई मान संग्रहीत करता है फिर एक नया नोड मान बनाया गया है जिसे उस लेबल से टैग किया गया है, बाएं और दायें शाखाएं अपने टैग प्राप्त कर लेती हैं, और एक नया पेड़ लौटाया गया है, जो अब लेबल है राज्य का प्रकार हर बार एक ही रहता है, जो कि मोनादस्टेट एम इंट द्वारा तय किया गया है, जो कहता है कि m एक राज्यपूर्ण मोनद है जो हमेशा है एक राज्य मान जो Int है।


Comments

Post a Comment

Popular posts from this blog

python - Strange behavior using PyQt4's 'pyqtSlot' decorator before another decorator -

-
I have a strange problem with using the QtCore.pyqtSlot decorator in front of the function decorated with a different decorator. The problem below shows this problem, it immediately provides a low QT program with a single button. When pressing a button, the following happens: (1) The signal 'signal_A' and 'signal_B' sequence are connected to method_A and method_B ​​respectively. (2) signal_A and signal_B signals are emitted. (3) The required behavior is that the method_A and method_B ​​are executed. However, it turns out that both signal_A and signal_B trigger method_A, or method_B ​​(oddly, this is nondeterministic, and different for each part of the program!). It appears to be a bug. This issue is present when PyQt4 binding is used in Qt. It is not present when using PySide (use the '-pyside' parameter to verify) I have seen both problems in Python 2 and 3, and both in Windows and Linux This issue is related to the insertion of a decorator be...
Read more

c# - UnhandledExceptionMode.ThrowException for AppDomain.UnhandledException -

-
I want to set unhandledExceptionMode.ThrowException for current AppDomain and not only for application threads. An exception from the second thread should also be handled by my current Donan_Unimated exception handler. Is it possible? Here's my code: Fixed class program {/// & lt; Summary & gt; Main entry point for the application /// & lt; / Summary & gt; [STAThread] static zero major () {applications Set unhandled exception mode (unwanted exception. Throws up); AppDomain.CurrentDomain.UnhandledException + = New UnrestrictedExceptionEndception (CurrentDomain_UnhandledException); Application.EnableVisualStyles (); Application.SetCompatibleTextRenderingDefault (wrong); Application.Run (New Form 1 ()); } Static Zero CurrentDomain_UnhandledException (Object Sender, UnhandledExceptionEventArgs E) {File.AppendAllText ("Log.txt", (Exception) e.ExceptionObject). Message + environment. Newline); }} Maybe you search for the behavior provided by Applic...
Read more

c# - Process.Kill() returns access denied -

-
I'm trying to kill a process using a CMD command line from my C # application, but when I start the application does not happen anything. .. When I try to kill with a command prompt, I get the message: "Access denied" I tried to run as my app administrator and the process was killed. How can I not always use "Run as administrator"? Code: System.Diagnostics.Process process = new System.Diagnostics.Process (); System.Diagnostics.ProcessStartInfo startInfo = New system. Diagnostics. Process STARTINFO (); StartInfo.WindowStyle = System.Diagnostics.ProcessWindowStyle.Hidden; StartInfo.FileName = "cmd.exe"; StartInfo.Arguments = "/ C Tasky / F / IM APP.exe"; Process.start.info = startInfo; Process.start (); try it System.Diagnostics.Process Process = new system Diagnostics Process (); System.Diagnostics.ProcessStartInfo startInfo = New system. Diagnostics. Process STARTINFO (); StartInfo.WindowStyle = System.Diagnostics.ProcessWindowS...
Read more