demesisx

I stumbled onto this episode after fantasizing about just such a technology where we could take all of the positives of the Beam and bring them to the amazing OCamL compiler. This guy Leandro is incredibly clever and articulate. I loved his use of the word “free range” to describe a technology later in this podcast. A super interesting episode!

Leandro reminds me of myself (though I’m obviously not quite as bright), getting interested in bleeding edge, space age languages like Idris then dialing back the type astronautiness to more breathable air to achieve things in the real world with languages like OCamL. Enjoy! Hopefully some of you smart people can help push #RIOT forward. It seems like a great idea without peer in the tech world.

cross-posted from: https://lemmy.world/post/20776659

A quick, naive AI generated Purescript translation (quickly generated that probably doesn’t work but will help get me started later)

module Main where

import Prelude
import Effect (Effect)
import Effect.Aff (launchAff_)
import Effect.Aff.Timer (setInterval)
import Effect.DOM (window)
import Web.HTML (document)
import Web.HTML.Document (getElementById)
import Web.HTML.Element (Element, toElement)
import Web.HTML.HTMLCanvasElement (getContext2D, getCanvasElementById)
import Web.HTML.Canvas.Image (newImage, getWidth, getHeight, setSrc)
import Web.HTML.Canvas.CanvasRenderingContext2D (CanvasRenderingContext2D, drawImage)
import Web.HTML.Types (CanvasElement, Image)
import Web.DOM.Node.Types (Node)

foreign import requestAnimationFrame :: (Effect Unit -> Effect Unit) -> Effect Unit

-- Loads the image and begins the animation
startAnimation :: Effect Unit
startAnimation = do
  img <- newImage
  setSrc img "example1.jpg"
  canvas <- getCanvasElementById "myCanvas"
  context <- getContext2D canvas

  -- We defer animation start until the image is loaded
  imgOnLoad img (beginAnimation context img)

-- Sets the image `onload` handler, safely deferring canvas drawing until the image is ready
imgOnLoad :: Image -> Effect Unit -> Effect Unit
imgOnLoad img action = do
  foreignOnload img action

foreign import foreignOnload :: Image -> Effect Unit -> Effect Unit

-- Initializes the animation loop
beginAnimation :: CanvasRenderingContext2D -> Image -> Effect Unit
beginAnimation context img = do
  imageWidth <- getWidth img
  imageHeight <- getHeight img
  let row = imageHeight
  requestAnimationFrame (animate context img row imageWidth imageHeight)

-- Animates drawing row by row
animate :: CanvasRenderingContext2D -> Image -> Int -> Int -> Int -> Effect Unit
animate context img row imageWidth imageHeight = do
  drawImage context img 0 row imageWidth 1 0 0 imageWidth row
  let nextRow = if row > 0 then row - 1 else imageHeight
  requestAnimationFrame (animate context img nextRow imageWidth imageHeight)

main :: Effect Unit
main = do
  startAnimation

cross-posted from: https://beehaw.org/post/16413694

Appropriate levels of physical activity, sedentary behaviour and sleep (collectively termed movement behaviours) are essential for the healthy growth and development of preschool-aged children.

This was the impetus for creating the Canadian 24-Hour Movement Guidelines for the Early Years (birth to four years). Likewise, this is why the World Health Organization adopted the Canadian guidelines when creating the global guidelines on physical activity, sedentary behaviour and sleep for children under five years of age.

Considering the extensive benefits of movement behaviours, it is very alarming that a recent study found that only 14 per cent of preschoolers around the world are meeting movement behaviour guideline recommendations.

King Gizzard & the Lizard Wizard - Polygondwanaland (Full Album) @kinggizzard @flightlessrecords @desertmossrecords https://kinggizzard.bandcamp.com/albu...

00:00 - Crumbling Castle 10:46 - Polygondwanaland 14:16 - The Castle In The Air 17:00 - Deserted Dunes Welcome Weary Feet 20:38 - Inner Cell 24:35 - Loyalty 28:13 - Horology 31:06 - Tetrachromacy 34:36 - Searching... 37:40 - The Fourth Colour

Purchase: https://opensea.io/collection/kgatlwp...

King Gizzard & the Lizard Wizard are an Australian rock band formed in 2010 in Melbourne, Victoria. The band consists of Stu Mackenzie (vocals, guitar, bass, keyboards, flute), Ambrose Kenny-Smith (vocals, harmonica, keyboards), Cook Craig (guitar, bass, keyboards, vocals), Joey Walker (guitar, bass, keyboards, vocals), Lucas Harwood (bass, keyboards), and Michael "Cavs" Cavanagh (drums, percussion). They are known for exploring multiple genres, staging energetic live shows and building a prolific discography, having released sixteen studio albums, two EPs, two compilations and seven live albums.

Michael Cavanagh – drums (tracks 1-10), percussion (tracks 1, 2, 3, 8, 10), glass marimba (track 1)

Cook Craig – electric guitar (tracks 1, 8, 10), synthesizers (tracks 9, 10)

Ambrose Kenny-Smith – harmonica (tracks 1, 3, 8, 10), vocals (tracks 8, 10)

Stu Mackenzie – vocals (all tracks), electric guitar (tracks 1, 2, 4, 7, 8, 10), bass guitar (tracks 1, 3-7, 9), acoustic guitar (tracks 2, 4, 8-10), synthesizers (all tracks), flute (tracks 1-3, 5-8), glass marimba (track 1), mellotron (tracks 2, 4), percussion (track 9)

Eric Moore – management (all tracks)

Lucas Skinner – bass guitar (track 10), synthesizer (track 7)

Joey Walker – electric guitar (tracks 1, 3, 5-7, 10), acoustic guitar (tracks 3, 5), bass guitar (tracks 1, 2, 4, 8), synthesizers (tracks 5-7, 9, 10), vocals (tracks 1-8, 10), percussion (tracks 1-3, 5, 7, 8, 10)

Additional musicians- Leah Senior – spoken word (track 3) #kinggizzardandthelizardwizard #flightlessrecords #recordlabel

cross-posted from: https://infosec.pub/post/18381069

cross-posted from: https://infosec.pub/post/18350400

Join Daniel Ribar, TK Princewill (Community Managers), and the rest of the community for TownHall 177

Tune in to live zoom event to participate in the call: https://bit.ly/3rCicSR

More info below. 👇👇👇

Too busy to watch it all?

📝 Skip over presentation slides: https://bit.ly/4eJlKdh

What's Project Catalyst? The largest decentralized innovation fund in the world now totalling almost 65,000 participants working together. You can join them today!

📣 Announcements only: https://t.me/cardanocatalyst 📧 Subscribe to the mailing list: https://bit.ly/3dSZJvx

🎥 Rewatch past town-halls: https://bit.ly/2UxT9Uv 💡 Browse insights, ideas, and proposals: http://cardano.ideascale.com 💬 Join main Telegram group: https://t.me/ProjectCatalystChat

🏟 Go deeper with Catalyst Discord: / discord
🤓 Become Community Advisor/Mentor: https://t.me/CatalystCommunityAdvisors 👩‍🔬 Join Proposal Owners: https://t.me/catalystproposers 🐝 Catalyst Swarm & Sessions: / discord

🐛 Help find bugs & test: https://t.me/catalystdryruns ⚙️ Get lost in data: https://bit.ly/ProjectCatalystDashboard 🎉 See all funded proposals at glance: https://bit.ly/3wiBHjP

Join Daniel Ribar, TK Princewill (Community Managers), and the rest of the community for TownHall 177

Tune in to live zoom event to participate in the call: https://bit.ly/3rCicSR

More info below. 👇👇👇

Too busy to watch it all?

📝 Skip over presentation slides: https://bit.ly/4eJlKdh

What's Project Catalyst? The largest decentralized innovation fund in the world now totalling almost 65,000 participants working together. You can join them today!

📣 Announcements only: https://t.me/cardanocatalyst 📧 Subscribe to the mailing list: https://bit.ly/3dSZJvx

🎥 Rewatch past town-halls: https://bit.ly/2UxT9Uv 💡 Browse insights, ideas, and proposals: http://cardano.ideascale.com 💬 Join main Telegram group: https://t.me/ProjectCatalystChat

🏟 Go deeper with Catalyst Discord: / discord
🤓 Become Community Advisor/Mentor: https://t.me/CatalystCommunityAdvisors 👩‍🔬 Join Proposal Owners: https://t.me/catalystproposers 🐝 Catalyst Swarm & Sessions: / discord

🐛 Help find bugs & test: https://t.me/catalystdryruns ⚙️ Get lost in data: https://bit.ly/ProjectCatalystDashboard 🎉 See all funded proposals at glance: https://bit.ly/3wiBHjP

This video demonstrates a quick way to have something nice running with purescript (react + tailwind css + shadcn/ui components)

Repository: https://github.com/Zelenya/purescript-shadcn-tailwind-copypaste

Check out my course "How to think like a functio programmer": https://impurepics.thi.

#fp #functionalprogramming #purescript

The most recent release of GHC includes a technology preview of a WebAssembly backend. This allows Haskell code to run in many new contexts.

GHC's WebAssembly backend is based on an earlier research compiler called Asterius. In this talk, Cheng Shao, the main author of both projects, presents an introduction to WebAssembly and why compiling Haskell to it is different than other platforms. The talk includes many details about why the backend is the way it is, along with instructions to work on it.

This talk was presented at the 2023 GHC

Contributor's Workshop in Rapperswil, Switzerland, colocated with Zurihac. The workshop was arranged by the Haskell Foundation, OST Eastern Switzerland University of Applied Sciences, and the GHC development team.

Cheng Shao is a full-time software engineer at Tweag, where he has been working since 2018. His main contribution to GHC is the WebAssembly backend, which grew out of his early research project, a Haskell-to-WebAssembly compiler codenamed Asterius. He focuses on maintaining the GHC WebAssembly backend, adding new functionality, as well as other GHC work that involves code generation and the runtime system.