Ardin Fardiansyah ardfard

## FAQ.md

      
              6 files
            
          
              0 forks
            
          
                0 comments
              
            
              0 stars
            
          
                ardfard
                / FAQ.md
            
            
              Created
              January 29, 2025 09:21
                — forked from ngxson/FAQ.md
            
              
                convert ARM NEON to WASM SIMD prompt
              
          
    Why did you do this?

Relax, I only have one Sunday to work on idea, literally my weekend project. So I tried Deepseek to see if it can help. Surprisingly, it works and it saves me another weekend...
What is your setup?

Just chat.deepseek.com (cost = free) with prompts adapted from this gist.
Does it work in one-shot or I have to prompt it multiple times?


## FPGuild-ex.hs
#! /usr/bin/env stack
-- stack --resolver lts-9.5 script

---------- EX 1 -------------------
pascal :: Int -> Int -> Int
pascal c r
  | c == 0    = 1
  | r == c    = 1
  | otherwise = pascal (c - 1) (r - 1) + pascal c (r - 1)

## sum.hs
import Control.Monad.State

sum' xs = flip execState 0 $ do
  forM_ xs $ \x -> do
    current <- get
    put (current + x)

main = print $ sum' [1,2,3]

## docker-compose.example.yml
version: '2'
services:
  beanstalkd:
    image: schickling/beanstalkd
    volumes:
      - beanstalk-data:/data
    command: beanstalkd -p 11300 -b /data

  beanstalkd-console:
    image: schickling/beanstalkd-console

## hackerrank_haskell_bootstrap.hs
-- Enter your code here. Read input from STDIN. Print output to STDOUT
{-# Language OverloadedStrings #-}

import Control.Monad
import qualified Data.Text as T
import qualified Data.Text.IO as TIO
import qualified Data.Text.Read as TR

main :: IO()
main = parseInput >>= (mapM_ print) . applySolution

## project_001
dummy

## HelloWorld.hs
main = print "Hello, world!"
	#! /usr/bin/env stack
	-- stack --resolver lts-9.5 script

	---------- EX 1 -------------------
	pascal :: Int -> Int -> Int
	pascal c r
	\| c == 0 = 1
	\| r == c = 1
	\| otherwise = pascal (c - 1) (r - 1) + pascal c (r - 1)
	import Control.Monad.State

	sum' xs = flip execState 0 $ do
	forM_ xs $ \x -> do
	current <- get
	put (current + x)

	main = print $ sum' [1,2,3]
	version: '2'
	services:
	beanstalkd:
	image: schickling/beanstalkd
	volumes:
	- beanstalk-data:/data
	command: beanstalkd -p 11300 -b /data

	beanstalkd-console:
	image: schickling/beanstalkd-console
	-- Enter your code here. Read input from STDIN. Print output to STDOUT
	{-# Language OverloadedStrings #-}

	import Control.Monad
	import qualified Data.Text as T
	import qualified Data.Text.IO as TIO
	import qualified Data.Text.Read as TR

	main :: IO()
	main = parseInput >>= (mapM_ print) . applySolution